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El mejor 
telex, 
un PC 

-til 1 Telexlot es una tarjeta 
que se conecta a cualquier slot 
de expansion libre y convierte 
los IBM PC y compatibles en 
un terminal de telex. Esta 
tarjeta, que funciona en el 
Amstrad PC 1512, estara 
disponible a finales del mes de 
julio a un precio aproximado de 
180.000 pesetas. 

Tiene un interface de 
conexion a las redes de Telex o 
SPCM y otro de conexion a la 
impresora, un reloj de tiempo 
real y la posibilidad de trabajar 
con lineas de simple o doble 
polaridad. 

El programa puede transmitir 
o recibir mensajes en 
background, volcarlos en la 
impresora o grabarlos en el 
disco, ademas de tener la 
posibilidad de elegir entre dos 



. 

modalidades: residente o no 
residente en memoria. 

Esta misma empresa, 

PahlData, SA, tiene un equipo 
con microprocesador, llamado 
TCAI-3, que permite enlazar 
sistemas informaticos a la red 
de telex, pudiendo de esta 
manera corregir y editar los 
mensajes antes de enviarlos, sin 
necesidad de interrumpir el 
trabajo. Este sistema cuesta 
280.000 pesetas mas el 12 por 
100 de IVA. 




Concorde 2.0: un programa para realizar discos de demostracion 


X roximamente va aparecer 
una nueva version del programa 
grafico Concorde, desarrollado 
por Visual Communication 
Network Con el se pueden 
realizar demostraciones 
autoejecutables y se pueden 
mezclar sobre la pantalla del 
ordenador graficos, imagenes, 


texto, musica, animation y 
efectos especiales. Con todas 
estas funciones solo faltaba la 
posibilidad de crear y editar 
juegos de caracteres propios, 
que es precisamente lo que hace 
la nueva version 2.0. 

Otra de las innovaciones del 
Concorde 2.0 es que permite la 


salida simultanea de graficos de 
tipo bit-map, a los que el 
ordenador trata como un 
conjunto de puntos, y graficos 
de tipo vectorial, que son 
reconocidos como un objeto 
concreto, no como un conjunto 
de puntos. De esta forma se 
pueden conseguir imagenes de 
gran complejidad y graficos con 
mayor velocidad en su trazador 
grafico. 

Los datos se pueden 
introducir desde el teclado o el 
raton, pero tambien se pueden 
utilizar el digitalizador o 
scanner. El Concorde funciona 
en Amstrad PC y lo distribuye 
MicroMouse, S.A. Esta 
empresa dispone de un diskette 
de demostracion, realizado con 
el programa, en el que se 
explican las posibilidades que 
tiene y da una serie de clases 
para usuarios de Concorde, 
aunque una de las cualidades 
que caracterizan el programa es 
la facilidad de uso, mediante 
menus, con la posibilidad de 
salirse del sistema operativo, 
ejecutar otro programa y volver 
al Concorde. 
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Proa abandona la 

.A. partir del mes de junio 
Proa esta suministrando una 
nueva version del entorno 
operativo Cristal. Esta, tambien 
para compatibles PC, no tendra 
la protection contracopias que 
llevaba hasta ahora, de manera 
que se podran realizar copias de 
seguridad o usarlo en el disco 
duro sin necesidad de utilizar 
un disco «llave». 

Las razones de este cambio, 
segun Proa, se deben a las 
peticiones de los programadores, 
que hasta ahora teruari muchas 
dificultades en aprovechar todas 
las posibles aplicaciones de este 
entorno, ya que, para ejecutar 
los programas desarrollados con 
Cristal, necesitaban un modulo 
Run-time- Asi, desde ahora, se 
suministrara a los 
programadores este tipo de 
modulo con el que podran 
ejecutar y reproducir todas las 
veces que quieran sus 
programas. Sin embargo, 
seguira habiendo una version 
incopiable del Run-time para 
aquellos que quieran proteger 
sus aplicaciones, con la ventaja 
adicional de llevar incorporados 


proteccion de Cristal 



los accesorios de sobremesa del 
Cristal como la calculadora, 
calendano, directorio... 

En esta decision ha influido 
mucho, segun las mismas 
fuentes, el interns en introducir 
el entorno operativo Cristal, 
que funciona bajo el lenguaje 
Boriar (un potente y sencillo 
lenguaje de cuarta generation 
en Castellano), en los 
organismos publicos. Por su 
forma de trabajar, en este tipo 
de empresas se necesita instalar 
el programa en el disco duro. 
Ademas, al estar desprotegido, 
cualquier usuario podra 
utilizarlo en entornos multitarea 
y en ordenadores 
semicompatibles, que hasta 
ahora eran rechazados por el 
sistema de proteccion 

Apesar de haber abandonado 


la proteccion, Proa seguira 
persiguiendo las copias ilegales 
de este producto. 

El precio de esta nueva 
version sera de 95.900 pesetas 
mas IVA. 


ULTIMA HORA 


Erbe se hace cargo 
de la distribution 
de epix 

El pasado 3 de julio, en el 
Holliday Ink., Erbe anuncio 
que, desde ese mismo dia, se 
hara cargo de la distribution 
en Espana de los productos 
de la com pania britanica 
Epix, dedicada al software de 
juegos. 

Segun fuentes de Erbe, 
esta exclusiva ha sido 
conseguida a traves de U.S. 
Gold y, aunque todavia no 
se conocen titulos, los 
primeros juegos estaran 
pronto disponibles. 

Por razones de tiempo, en 
este numero de la revista 
solo se da una pequena 
resena de ultima hora, pero 
proximamente ampliaremos 
debidamente esta noticia. 


IDNDK££ endirecPo 


PRESENTACION 
DEL AMSTRAD 
PCI 640 

La semana pasada Amstrad 
dio a conocer a los medios de 
comunicacion informacion 
detaliada a cerca de su nueva 
gama PC 1640 —futuros 
sucesores de los PC1512—, los 
cuales seran lanzados al 
mercado britanico y europeo en 
general el proximo afio. 

Este ordenador ha sido 
presentado al publico por 
primera vez en la exhibicion 
Comdex en Atlanta (EE. UU.j y, 
en contra de los rumores de que 
este tendrfa como base el 
procesador Intel 80286, se ha 
podido comprobar que 
definitivamente utiliza el chip 
8086. 

Otro detalle a tener en cuenta, 
aunque referido principalmente al 


tema comercial, es que el 
PC 1640 se vendera en tiendas 
de ordenadores especializadas 
en lugar de hacerlo a traves de 
grandes almacenes como en el 
caso del PC1512. Esto parece 
indicar daramente que el 
PC 1640 va dirigido a un usuario 
mas profesional que el PC1512. 
Sera interesante ver el precio con 
el que Amstrad lanzara 
definitivamente este ordenador. 

Sea como fuere, lo que parece 
seguro es que Amstrad, ahora 
que posee una amplia gama de 
ordenadores, esta dispuesta a 
afrontar nuevamente la aventura 
americana y que intenfara 
colocar sus productos en el dificil 
pero suculento mercado de los 
EE. UU. 

JUEGOS 
PARA EL PCW 

Design Design ha publicado 
una copiiacion de sus mayores 


exitos con formato PCW llamado 
Distractions. La copiiacion 
consta de tres juegos de tedado 
y joystick en un disco, con un 
precio de 20 libras. Dos de los 
juegos habian sido lanzados con 
anterioridad: On the Run que te 
coloca en la posicion nada 
deseable de tener que sanear un 
area que ha sido contaminado all 
derramarse el contenido de 
armamento quimico en un 
imaginado laberinto mortal. 
Durante este «apacible viaje» 
puedes encontrarte con un sin fin 
de seres mutantes. Por otro lado, 
puedes elegir relacionarte con los 
personajes que se han poderado 
del mundo en el ano 2112 antes 
de Cristo: 2112 A. D. El iinico 
juego nuevo de los tres es 
Nexor, en el cual tu te conviertes 
en un miembro de un equipo 
cuya mision es impedir que un 
arma secreta caiga en manos de 
los enemigos. 
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El raton y la pantalla 
al descubierto 

Por Javier Barcelo 



como en 
de realizan 
funcion / 


El texto 
y la pantalla 


#4provechando las caracterfsticas grafieas del 
entorno Gem, no hace falta contentarse con 
presentar los textos en la pantalla de manera 
convencional. Por el contrario, es dificil elegir la 
manera de hacerlo, entre tantas posibilidades 
que da. Veamos como hacerlo... 

El Basic2 trata la pantalla 
de dos maneras diferentes, 
segiin se defina como de 
texto o de graficos. 
Pero se puede 
funcionar igual 
en ambas 


con texto. La grafica la divide como si fuera un 
papel cuadriculado de cinco mil por ocho mil 
puntos. La esquina inferior izquierda es el punto 
cero, cero, y la esquina superior derecha es el 
ocho mil, cinco mil. Esto da una pequena idea de 
la precision con la que se puede operar. ,-Por que 
contentarse con la resolucion baja, si se dispone 
de la alta? A no ser, claro, que se vayan a 

en cuyo caso solo 


utilizar dos ventanas 
una puede ser 
funciona de 
Aunque en 
puede colocar, 
funcion 


grafica, y la otra 
manera normal, 
modo grafico se 
:1 texto mediante la 
Locate (Fila, Columna,) 
|T otros Basics, a la hora 
filigranas es mas util la 
move 

(Coordenada, Coordenada), 
por la posibilidad antes 
mencionada de la precision a 
la hora de colocar los textos. 

Por otro lado, quiza la 
funcion mas curiosa en las 
filigranas de texto es el 
comando Angle, que permite 
colocar el texto de maneras 
poco «ortodoxas». Aunque 
teoricamente, dando un angulo 
determinado el texto deberfa 
salir con esa inclination, 
probablemente por 
problemas de 
resolucion solo 
admite 
parametros 
multiplos 
de 90, 
con lo 
que el 
texto 























se puede presentar normal, invertido, horizontal 
y vertical. Cuando hablamos de horizontal y 
vertical con las letras giradas tambien, y no 
derechas. 

Ademas, tenemos los tipos de letra. Existen en 
principio tres tipos distintos, cada uno con varios 
tamahos diferentes. Los tamanos van expresados 
en puntos, cada uno de los cuales equivale a 1/72 
de pulgada, y se puede apreciar la variedad de 
tamanos de cada tipo en el menu de Fuentes. Hay 
que tener en cuenta que no todos los tipos se 
pueden hacer en todos los tamanos. 

Para que un ordenador 
funcione hay que comunicarse 
con el. in el caso del PC, esto 
es posible gracias al raton y 
al teclado. 

Pero aun queda algo interesante. La funcion 
Set. Con esta funcion se pueden fijar muchas 
caracterfsticas del texto, aumentando la 
efectividad y simplificando las lineas de 
programa. 

— Set colour para fijar el color por defecto pare 
el texto. 

— Set font fija el tipo de letra. 

— Set points para especificar el tamano de las 
letras. 

— Set angle hace lo mismo con el angulo de 
escritura. 

— Set mode especifica un tipo de escritura. 

Esta ultima consigue efectos muy curiosos, a la 

hora de mover el texto por la pantalla. Por 
ejemplo, si se le da el valor tres, al «mover» el 
texto cambiandolo de coordenadas e 
imprinuendolo en la nueva posicion, borra el 
texto antiguo, pareeiendo que este se pasea por la 
pantalla. El valor dos hace que el texto se 
arrastre, y el valor uno proporciona un texto 


Claves del 

GEM BASIC 

sombreado a la hora de imprimir. Este ultimo 
modo no resulta muy estetico en colores porque 
queda muy confuso. Sin embargo, el valor dos da 
un bonito efecto de relieve. 

Estos comandos son los que aparecen en el 
programa de ejemplo que acompana el artfculo. 

Las primeras lineas definen la ventana unica. 
Los textos aparecen en las variables definidas en 
las lineas siguientes. Luego se establece el tipo y 
tamano de letra, asf como el modo. Despues el 
primer bucle de movimiento del texto, que situ a 
el cursor en una posicion e imprime la variable 
en un color distinto cada vez. Las coordenadas 
van cambiando, de manera que el texto se mueve 
en diagonal por la pantalla. En las ultimas lineas, 
un ejemplo de como imprimir con el texto en 
otras posiciones. Solo queda experimentar. Al 
principio es un poco hoso, pero la practica hace 
maravillas. . 


Utilice 
el raton 


A la hora de exprimir todas las posibilidades 
del Basic2, y por tanto, del Gem, hay que tener 
en cuenta el raton. Existen muchas aplicaciones 
dentro de un programa en Basic y para ilustrar 
este artfculo se ha elegido un simple menu. 

En este menu hay cuatro opciones, y al situar 
la flecha del raton encima del numero de opcion 
elegido y pulsar los dos botones del mismo, la 
opcion queda seleccionada. 

A simple vista, dos son los problemas a 
solucionar para tener en cuenta el raton desde un 


PROGRAMA HE EJEMPLO 


RES ASSTRAD SERAM 
REM GENEASIC2 
REM F.J.E.T. 

PER Prep era 1 ' la Vardan 3 . 

CIS 

1'INDGM G P EN 
WINDOW FULL 

WINDOW TITLE "Ejeisplo de pre¬ 
sentation de Textes" 

REM Define el texto a presentar 
at= "AMSTRAD SEMANAL" 
h$- n r.r TPyTOS” 

ct= ";C0L0CAD0S!" 


dt- ’ , AS! ! " 

REM Eli- 3 = tipo y tanaEo de 
Letra 

SET FONT 2 
SET POINTS 26 
SE T MODE 2 

REM Bucles de presentation de 

texto. 

FOR i=200 TO 1 STEP -20 
MOVE 500+ij3100-i 
PRINT COLOUR (i/20)jb$ 
NEXT i 
SET FONT 3 


FOR i r : TO 200 ST rD +20 
MOVE 700+i;2500-i 
PRINT COLOUR (i/205; a* 
NEXT i 
SET FONT I 
SET POINTS 10 
MOVE 4000;1500 
PRINT ANGLE C0);ct 
MOVE 4000;1500 

PRINT ANGLE (IBO)jct 
MOVE 4000;400 

PRINT ANGLE (905;dl 
END 
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programa. Uno, la deteccion de los pulsadores, y 
otro la position del raton en ese momento. 

Para detectar que se han pulsado los botones 
del raton hay dos maneras. La mas tipica es 
utilizar la funcion Inkey$, pero Basic2 tiene otra 
funcion que realiza espetificamente este 
cometido. Este comando es Button, que da como 
valor —1 cuando no estan pulsados, y +16 +2 
al pulsar cada uno de ellos. De esta manera, se 
detecta la pulsation de los botones en el 
programa, y un problema esta solucionado. 

El otro problema no es mas difitil, aunque es 
un poco mas complicado. Existen dos funciones 
que nos dan las coordenadas del raton en todo 
momento. Estas son Xmouse e Ymouse, que 
logicamente dan el valor en el eje X e Y 
respectivamente. Estas coordenadas vienen dadas 
por pixels, estando los valores de X 
comprendidos entre cero y seiscientos cuarenta, y 
los valores de Y entre cero y doscientos. De esta 
manera, teniendo en cuenta que cada fila o 
columna tiene ocho pixels, el calculo es faeil y 
siempre se sabe la position a la que apunta el 
raton. 

Una vez solucionados los problemas, aplicarlos 
a un programa es facil. Hay muchos metodos de 
hacerlo, pero se ha elegido este para el programa 
de ejemplo por ser muy claro. Un primer bucle 
comprueba que no esta pulsado ningun boton del 
raton. Si el boton esta pulsado, comprueba que 
la position del raton sea correcta, es decir, que 
este apuntando a una option. Esto se hace 
mediante el segundo bucle, anidado en el 




primero. En caso de que se pulse un boton y las 
coordenadas correspondan con las posiciones en 
la pantalla de un boton, se le da a la variable ops 
el valor de la option y se sale de ambos bucles. 


PROGRAMA DE EJEMPLO 

REM AHSTRAD SEMANAL 

REM EJEMPLO DEL USD DEL RATO* 

REM EN UK MEMO... 

REM F.J.B.T, 

REH CREAHOS LA PANTALLA 
CLS 

SCREEN TEXT 
WINDOW OPEN 
WINDOW FULL 

WINDOW TITLE "MENU GENERA L* 

SET FONT 2 

REH ESCRIBIMOS EL MENU EN LA PANTALLA 
LOCATE 30}05: PRINT *!,- QpciAn Uno * 

LOCATE 30}07: PRINT "2,- Opcifc Bos ’ 

LOCATE 30;09: PRINT '3,- OpciAn Tree" 

LOCATE 30;li: PRINT ’4.- OpciAn Cuatro" 

LOCATE 20}15: PRINT COLOUR (4);’Marque la 
opciAn deseada con el RATON" 

REM BUCLE BE CONTROL DEL RATON 

LABEL control 

WHILE BUTTON » -1 

ope=0 

rfKOUSE 

y=YMDU5E 

WHILE (x<230 OR :<>345) 

IF y>139 AND y<!44 THEN opc=i 
IF yM23 AND y<129 THEN opc=2 
IF y>!0£ AND y<114 THEN opc=3 
IF y>89 AND y<98 THEN opc=4 
REND 
WEND 

REH EN CASO DE DFCI0N VALIDA, SIGUE... 

IF opc<i OR opc>4 GOTO control 

LOCATE 22j17:PRINT "Ha elegido la opciAn..: ";cpc 

END 

















For: Ignacio Alvarez Garcia 


Con este programa, jugar a la brisca contra el ordenador puede 
resultar bastante divertido, si tenemos en cuenta que ganarle no es 
nada facil, ya que el ordenador no tira las cartas al azar, sino 
ajustandose a las normas del juego. 


V 

ste es el juego de cartas de la brisca, en el 
que juega un jugador contra el ordenador. La 
pantalla se presenta de la forma siguiente: 


El juego se termina cuando se han acabado las 
cartas del mazo, momento en el cual se expone la 
puntuacion y se pregunta si se desea jugar de 


mazo de 
las cartas 
que quedan 



cartas del jugador 
(para seleccionar una 
pulsar el n.° que est5 
encima) 


carta que tira 
el jugador 


carta que tira 
el ordenador 


carta que pinta 
(ultima del mazo) 
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nuevo. Tambien se puede detener durante la 
ejecucion pulsando la tecla de borrado cuando 
nos toca tirar. 

Las jugadas del ordenador no son al azar, sino 
en cierto modo inteligentes, y muy facil de 
variarlas o introducir otras nuevas, pues la 
ejecucion es muy sistematiea. 

La estructura principal del programa es un 
bucle que contiene cada jugada y que esta 
situado entre las lfneas 630 y 2480, 

En cada jugada el pnmero en tirar carta es 
aquel que ha ganado la baza anterior. Si ha sido 
el ordenador, este tira primero seleccionando la 
jugada que va a hacer entre 3 posibles. 
Posteriormente, se pide al jugador que tire su 
carta y se cornprueba quien ha ganado. 

Si el jugador debe tirar el primero, porque ha 
ganado la baza anterior, segun la carta que 
seleccione, el ordenador escogera la suya, de 
acuerdo con el siguiente criterio: 

Se pregunta si es o no triunfo, y en cada caso 
si tiene o no dene puntos. En cada uno de estos 




' i -r 

1 4 * 1 

1 ♦** 1 R 1 

1 c 

Li * 



casos buscara entre las cartas que tiene la rnejor. 
El criterio de mejor se hace secuencialmente, 
buscando primero una carta que gane; si no 
encuentra ninguna busca una que pierda 
cediendo pocos puntos, etc., todo ello 


1 'tnututuuumPMtnttntu 

**** 

2 '* JUEfiO DE IS ESISCA 
I 

3 '* 

* 

4 'I For Ignacio Alvarez Garcia 
* 

5 * OVIEDO 

* 

nn 

7 ' 

10 SYMBOL AFTER 32 

20 INK 1,26:INK 0,0:INK 2,3:INK 3,1 

4:BORDER 0 

30 FEN I:PAPER 0 

40 vLEAElOin a$C43>:DIH uJ(3):DI« t 
t'3):DIM i(33:OI!! b(3) 

50 CIS:NODE 1:TR0E=-1:FALSE=0:dura= 
4000:p=0:q=0:LOCATE 13,12:INPUT "no 
isbr e:", ncab r e$: no»b r et=LEFT$ (noabr e 
1 , 6 ) 

60 SYMBOL 248,0,0,0,0,3,7,15, IS 
70 SYMBOL 249,0,0,0,0,:29.195.231,2 
SS 

30 SYMBOL 250,0,0,0,0,132,224,240,2 
40 

30 SYMBOL 251,15,15,7,7,3,3,1,1 
100 SYMBOL 252,240,240,224,224.132, 
132,123,128 

110 SYMBOL 253,1,1,3,3,7,7,7.3 
120 SYMBOL 254,128,128,132,192,224, 
224,224.192 

130 SYMBOL 255,24,24,24,248,240,132 
,96,48 


ISO SYMBOL 241,31,63,127,255,255,12 
7,63,31 

160 SYMBOL 242,248,252,254,255,255, 
254,252,243 

170 SYMBOL 243,24,24,24,24,24,24,25 

5.255 

180 SYMBOL 244,24,24,60,60,126,126, 

255.255 

130 SYMBOL 245.1,1,3,7,7,3,1,1 
200 SYMBOL 246,128,128,192,224,224, 
132,128,128 


210 

SYMBOL 

247,255,255,126,126,60,6 

0,24,24 


220 

4 

SYMBOL 

170,0,0,0,0,56,56,254,25 

230 

A 

SYMBOL 

171,0,0,0,0,16,56,124,25 

At 

240 

SYMBOL 

172,0,0,0,0,108,254,254, 

254 



250 

i 

SYMBOL 

173,0,0,0,0,16,56,124,25 

4 

260 

SYMBOL 

174,254,16,56 

270 

SYMBOL 

175,124,56,16 

280 

SYMBOL 

176,124,56,16 

290 

SYMBOL 

177,254,16,56 

300 

BORDER 

3:PAPER 2:CLS 

310 

define vent-anas donde van a i 

r la 

is cartas 

320 

FOR i=i 

TO 3 

330 

WINDOW 

#1,7*1-3,7*1+1,15,21 

340 

PAPER t 

ti,1:PEN #i,0:CLS #i 

350 

PEN l:LOCATE 7*i-2,14:PRINT i; 

360 

NEXT i 


370 

WINDOW 

#4,32,36,15,21 


: M PEn 1:LD£ATE^32, ltfPRfifT' "PINTA 

B » 

400 FOR j=5 TO 6 
410 WINDOW #j,7*H0,7*i-6,2,8 
420 PAPER #j,l:PEN *j,0:CLS #j 
430 NEXT j 

440 LOCATE 25,1:PEN SlPRINT UPPERK 
noefcret); 

450 LOCATE 32,1:PEN 1:PR INT ”C.P U. 

fi ■ 

? 

460 baraja las cartas y las coloc 

a en el sazo 

470 RANDOMIZE TIME 

480 FOR 3=1 TO 4 

430 FOR i=l TO 10 

500 x=INT(RNDf40+l):IF a$(x)C** TH 
EN 500 

510 PLOT 10,330-x:DRAW 100,380-x,l 
520 a$(x)=CHF;t(i+48)+CHR$( j+225): IF 
i=10 THEN a$(x)s*k*+CHR*(j+225) 

530 NEXT i 
540 NEXT 3 
550 FOR h=l TO 8 
560 at(h+405=*x" 

570 NEXT h 

580 FOR i=! TO 2 

530 b$(i)=a$(i):c$(i5=ai!i+2) 

600 NEXT i 

6S0 t=2:FOR i=l TO CPL0T 10,380-i, 
2:DRAW 100,380-i,2:NEXT i 
620 ventana=4:carta$=a${40):S0SUB 2 
530 

630 ‘ cornienzo de una jugada 
640 i=0: j =0: k=0: bb=0: w=0: h=0: FOR j 
=1 TO 3 

650 IF ct(j)=”" THEN ct(j)=at(2*t+2 
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dependiendo de a que grupo pertenece la carta 
tirada por el jugador. 

Por ejemplo, si quiere tirar una carta que gane 
a la tirada por el jugador, la condicion de 
busqueda de la carta sera que su palo sea el 
mismo y que sea de valor superior. Ademas, se 
informa de si, caso de encontrarse una carta que 


Serie 

ORO 

cumpla esa condicion ganara el ordenador o el 
jugador. Con esta condicion se entra en la 
subrutina de las lfneas 3370-3490, que nos indica 
si hay alguna carta entre las que tiene el 
ordenador que cumple esa condicion, y en caso 
afirmativo la tira. En caso de no encontrar 
ninguna, buscariamos entonces una carta que no 
gane, pero que no ceda muchos puntos, o un 
triunfo, etc., siguiendo en todos los casos el 
mismo proceso anterior. 

Cuando se acaba una jugada se borran las 
cartas tiradas del grupo que tiene cada jugador y 
se sustituyen por las siguientes del mazo. 

Las cartas se presentan en seis ventanas, que 
son las siguientes: 


-qi 

660 IF bt(j)="" THEN M(j)=a«2*t+1 

♦q-5 

670 ventana=j:cartai=b$(j5JSOSUB 25 
90 

680 NEXT j 

690 ' asigua ios puntos a cada cart 

a 

700 FOR i=i TO 3 
710 l(i)=0:«t(i)=0 

720 IF LEFT$(bt(i),I3=*l" THEN Hi) 
=11 

730 IF LEFT?(ci(i!,15="l" THEN rt,(i> 
=11 

740 IF LEFTt(b$fi),15="3» THEN Hi) 
=10 

750 IF LEFTf(c$ti), 1)="3" THEN sCi) 
=10 

760 IF LEFTt(b$(i) s i)="8" THEN Hi) 
=2 

770 IF LEFT$(c$ti),lS="8" THEN ni«i) 
=2 

780 IF LEFTt(b$(i),l)=”9" THEN Hi) 
=3 

790 IF LEFTt(ct(i),l)="9" THEN m(i) 
=3 

800 IF LEFT$tb$(i), 1 THEN Hi) 
=4 

810 IF j^FTtCct(i),I)="k" THEN m(i) 
=4 

820 NEXT i 

830 ' si las tres cartas son V se 
ha acabado el juege 
840 IF (£*(1)=V AND c$(2)=V AND 
c$(3)=V) THEN 2500 
850 rebaja el nsaio en 2 cartaslsi 


hetftos ganado la ultima tiratios pri 
teeroCtinea 8605, y si nos ha ganado 
tira el CPU primerodinea 2130) 

860 t=t+l:PLGT 10,381-2*1,0:DRAW 10 
381-2ft:PLOT 10,380-2*t,2:DRAU 10 
0.380-21t,2:IF q=0 THEN 870 ELSE 60 
TO 2130 

870 PEN 1:LOCATE 5,12:PRINT 'COAL T 
IRAS?*5 

880 CALL SBBOO 

890 qwert$=INKEY$: IF (qwertiO"!'’ A 
NO q«erW<>*2* AND qwr«<>"3*) THE 
N 900 ELSE n=VAL<qwrt«:SOTO 930 
900 IF qwerttO"" THEN PRINT CHR$(7 

■ ! 

910 IF q«rt$=CHR$(127) THEN NODE 0 
;G0T0 2520 
920 GOTO 890 

930 IF b$(n)=V THEN PRINT CHR«7) 

;:GOTO 890 

940 ' escribe la carta en la ventan 
a de tirar 

950 ventana=5:carta$=bt(n):6GSU8 25 
90 

960 ' si la carta es de triunfo ir 
a 1680 

970 IF RISHTt(b$(n),li=R!3HTt(a$(40 
),i) THEN 1680 

980 ' la carta no es triunfo:si no 
1 leva puntos va a 1280 
990 IF l(n)=0 THEN 1280 
1000 ' la carta es no triunfo con p 
untos:primers se intenta ganar con 
una superior del iusbo palo,si no s 
e intenta con un triunfo, y si no s 
e echa una peor sin puntos 


1010 tira una superior del mismo 
paioCnos gana) 

1020 ganacpu-TRlIE 

1030 DEF FNcondicion(x)=iRI6HT$;c$( 
x),l)=RIGHTt(b*(n),!)5 AND d(x)>l( 
n)) 

1040 G0SUB 3370 

1050 IF encontre THEN 640 

1060 ' tira un triunfo con pocos pu 

nt-osfnos gana) 

1070 ganacpu=TRUE 

1080 DEF FNcondicion(x)=(RIGHT$ic5> 
x),l)=RIGHTt(a$(40),l)) AND Cm(xK5 

) 

1090 G0SU8 3370 

1100 IF encontre THEN 640 

1110 ' tira un triunfo con puntosfn 

os gana) 

1120 ganacpu=TRUE 

1130 DEF FNcendicion(;<)=(RI6BT*uii 

x),!) s R!6HTt(at(40),l)3 

1140 G0SUE 3370 

1150 IF encontre THEN 640 

1160 ‘ tira una carta con pocos pun 

tos(ganamos) 

1170 ganacpu=FALSE 

1180 DEF FNcond i cion(x)=tsit x3 <5) 

1190 G0SUB 3370 

1200 IF encontre THEN 640 

1210*' tira una cuaiquiera 

1220 ganacpu=FALSE 

1230 DEF FNcondicion(x)=TRUE 

1240 G0SUB 3370 

1250 IF encontre THEN 640 

1260 hemos tirade no triunfo sin 

!► 


AMSTRAD Semamil 11 








#1, #2 y #3: cartas del jugador 
#4: carta que pinta 

#5: carta tirada por el jugador 

#6: carta tirada por el ordenador 

Las cartas se almacenan en variables de tipo 

caracter, y la forma de las mismas es: 

a$ = ”3” 

palo de la carta 

num. de 

la carta 

(1 a 9, y k Por tanto, lelt$ (a$,l) sera el numero 
para el rey) de la carta, y right$(a$, 1) sera su 
palo. 

El resto del programa es: 

Lmeas 10-450: inicializacion de variables, 
definition de caracteres y de ventanas. 

460-620: baraja las cartas, reparte las primeras 
y establece el pinte. 

630-2480: estructura principal. Realiza una 
jugada completa. 

2490-2570: fin del juego y vuelta a empezar. 

2580: subrutinas 



puntos:intenta primero qanar con un 
c supenor.sino percer sin coder pu 

ntoSiSino ganar con un triunfo 
1270 ' lira una del aisao palo y su 
periorfnos gana) 

1280 ganacpu-TRUE 

1290 9EF FNcondicior,(x)={RI6HT$(cl' 

x>,1)=RIGHT$(bfin),!)3 AND 0afx)>0) 

1300 SDSUB 3370 

1310 IF enconlre THEN £40 

1320 ' lira una gue pierde pero sin 

puntosfganaaos) 

1330 ganacpu=FALSE 
1340 DEF FNcondic ion(xMRI6HT*(c$( 
x) ,1) ORIGHTtl nS ,1)1 AND {RIGHT* 
(c$ix),l)ORI£HT$'af(40) ; 1)' AND (a 
(k)=03 

1350 6DSUB 3370 
1360 IF enconlre THEN 640 
1370 lira una del aisao palo pero 
inferior(gaoaaosl 
1380 ganacpu-FALSE 
1390 DEF FNcondicior,(xMRI6HT$(c$: 
x),l)=RI6HT$(b$(n) !)) AND (ASCILEF 
TIL H ;< 5,1)) me (LEFT* {b*( nU)) ) 
1400 60SUB 3370 
1410 IF enconlre THEN 640 
1420 lira una del aisao palo supe 
riorlya air, puntos Hr,os gana) 

1430 ganacpu-TRUE 

1440 DEF FNcondicion(x)=(RIGH T 4f c*i 
xJil)*RI6KTt(bKn),i)) 

1450 60SUB 3370 
1460 IF enconlre THEN 640 
1470 ' lira una que pierde pero con 
pocos puntosfganaaos) 


1430 ganacpu-FALSE 

1490 DEF FNcondicion(x)=(RIGHTf(c$f 

x),I)ORI6HT«at(40),l)) AND (aCx)< 

5) 

1500 SDSUB 3370 

1510 IF enconlre THEN 640 

1520 lira un triunfo de pocos pun 

tosfnos gana) 

1530 ganacpu=TRUE 

1540 DEF FNcondicion(x)=(RIGHT$(c$( 
x), i)=RIGHTt(a$(40), 1)) AND (rnlxHS 
) 

1550 SOSOS 3370 

1560 IF enconlre THEN 640 

1570 ' lira Iriunfofnos gana) 

1580 ganacpu-TRUE 

1590 DE F FNcondicionfx)=(RISH T ${cL 
x?,l)=R!SHT$ia$(40?,15 ? 

1600 G0SUB 3370 

1610 IF enconlre THEN 640 

1620 ' lira una cualquierafganaaos) 

1630 ganacpu=FALSE 

1640 DEF FNcondicion\x 5=TRUE 

1650 GOSUB 3370 

1660 IF enconlre THEN 640 

1670 'times un triunfolsi es sin 

puntos va a 1870 sine va a 1700 

1680 IF ICn)=0 T HEN 1870 

1690 ' triunfo con puntos:intenta g 

anarlo con uno superior,sino lira u 

na aala sin puntos 

1700 lira un triunfo superiorfnos 
gana) 

1710 ganacpu-TRUE 

1720 DEF FNcondicion(x)=(RIGHT$Cc$( 


x),I)=RISHTf(at(40),1)) AND Cafx)>l 

(R)) 

1730 GOSUB 3370 
1740 IF enconlre THEN 640 
1750 ' lire, un no triunfo con pocos 
puntosfganaaos) 

1760 ganacpu-FALSE 

1770 DEF FNcondition(x)=(RIGHT$(t$( 

x), 1)ORIGHTKat(405,1)) AND fafx)( 

55 

1780 GDSIB 3370 

1790 IF enconlre THEN 640 

1800 ' lira una cualquierafganaaos) 

1810 ganacpu-FALSE 

1820 DEF FNcondicion(x)=TRUE 

1830 60SU6 3370 

1840 IF enconlre THEN 640 

I860 ‘ triunfo sin punioslprimere > 

ntenta iirar una mala,luego un Iriu 

nfo superior 

1860 ' lira no triunfo sin puntosfg 
anaisos) 

1870 ganacpu-FALSE 

1880 DEF FNcondicion(x>=(RIGHTt(ct( 

x ), 1)<>RIGKTt(aJ(40) ,1)5 AND fsifx)- 

05 

1890 GOSUB 3370 

1900 IF enconlre THEN 640 

1910 ' lira no triunfo con pocos pu 

ntoslganamos) 

1920 ganacpu-FALSE 

1930 DEF FNcondiciontx)=(RIGHTi(cfC 

x),l)=RIGHTt(a$<40),!)) AND (nt(x)<5 

5 

1940 GOSUB 3370 

1950 IF enconlre THEN 640 
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I960 ' lira un triunfo nas bajoigan 
anos) 

1970 ganacpu=FALSE 
1980 DEF FNcondicion(xMRIGHT*(c« 
x), 1) =RI6HT$(a$(40), 1)) AND (dx)=0 
) AND (ASCiLEF T l(c!(x5fDHASCdEFT 
$(b$(n),i))5 
1990 GOSUB 3370 
2000 IF eneontre THEN 640 
2010 ' lira un triunfo superior(nos 
gana) 

2020 ganacpu=TRUE 

2030 DEF FNcondicion(>')=CRIGHT$(c$( 
x), 15=F:ISHTi( a$(40), 15) 

2040 G0SUE 3370 
2050 IF eneontre T HEN 640 
2060 ‘ lira una cualquierafgananos) 
2070 ganacpu=FALSE 
2080 DEF FNcondicion(x)=TRUE 
2090 G0SU8 3370 
2100 IF eneontre THEN 640 
2110 el CPU ha ganado la ultima ju 
gada y debe tirar primero:intenta t 
irar no triunfo bajo, si no triunfc 
bajo y si no una cualquiera 
2120 ' intenta tirar no triunfo baj 
o 

2130 FOR 1=1 TO 3 

2140 IF c$Ci)=”x" THEN 2170 

2150 IF RIGHT$(c$(i),l)=RIGHTSCa$(4 

03,1) THEN 2170 

2160 IF bi< i)<5 THEN ventana=6:carta 
$=c$(i):corta$=ct(i):GOSUB 2590:GCT 
0 2290 
2170 NEXT i 

2180 tira un triunfo bajo 


2130 FOR i=l TO 3 

IfiO !f ^IGHTt(ct(lM!ORIGHT?(ai( 
40), 1) THEN 2230 

2220 IF ifldXS THEN ver,tana=6:carta 
$=ct(i):£orta$=ci(i):GOSUB 2530:Gui 
D 2230 
2230 NEXT i 

2240 '' tira una cualquiera 

2250 FOR i=l TO 3 

2260 If c$(i)="x" THEN 2280 

2270 ventana=6:carlat=ci(i1:corta$= 

c$(i5:G0SUB 2530:GOTO 2290 

2280 NEXT i 

2290 LOCATE 5,12: PRINT "CUAL TIRAS; 
.*• * 

? 

2300 CALL &B80O 

2310 po$=INKEYl: IF po$=" THEN 2310 
ELSE'IF poi='T THEN n=l ELSE IF p 

ot=“2" T HEN n=2 ELSE IF po$=*3* THE 
X n=3 ELSE IF po*=CHR«127) THEN NO 
BE 0:6GTG 2520 ELSE PRINT CHRK7)j: 
GOTO 2310 

2320 IF b$(n)«V THEN PRINT CHRt(7 
>: GOTO 2310 

2330 ventana=5:tarta$=b$(n):G0Sti6 2 
590 

2340 mira quien ha ganado.Si ha g 
anado el CPU va a 2460, si no va a 
2430 

2350 si las cartas son de distint 
o nalo va a 2400 

2360 IF RI6HT*(b$(n),i)ORI6HT«c« 
i),13 THEN 2410 

2370 ' las cartas son del isissio pal 
o.Gana el que la tenga superior 


2380 IF KnDafiJ THEN 2430 ELSE IF 
KnXiCi) THEN 2460 
2390 IF ASC(LEFT$(ri( i}, 1))>ASCFLE 5 - 
T$(b«(n),t» THEN 2460 ELSE GOTO 24 
30 

2400 las cartas son de distinto p 
aic.Si henos tirade, triunfo hesos g 
anado 

2410 IP RIGHTticId)il)=RIGH T f(at(4 
0), 1)THEN 2460 

2420 IF RI5HT*<M(n);iJ=M8HT*<a$<4 
03.DTHEN 2430 ELSE GOTO 2460 
2430 LOCATE 5,12:PRINT " 3ANAS 
*5 :q= 0:FGR h=l TO 3:IF c$!h5=cortat 
THEN dins-” 

2440 NEXT h:bt<n)=”:pp*mii+Hn5; 
FOR bb=l TQ dura:NEXT bb:FOR vv-i T 
0 6:IF vv<>4 THEN CLS f(vv) 

2450 NEXT vvlGOTG 640 
2460 LOCATE S,12:PRIN T " PIE8KS 
d:q=l:F0R h=l TO 3:IF cortai=cffh! 
THEN ci(h)= ,!ii 

2470 NEXT h: b$(n)= ,; : FOR fcb=i "0 du 
ra:NEXT bb:F0R vv=l TO 6: IF w<>4 T 
HEN CLS tlvvi 
2480 NEXT vvlGOTO 640 
2490 fin del juego.Si los juntos 
son sayores que 60 henos ganado. 
2500 IF p)60 THEN ENV 1,5,3,10,1,0, 
160,5,-3',20:SOUND 2,300,300,0,1,0,1 
S ELSE ENV 1,100,I,3:ENT 1,100,5,3: 

SOUND 1,284,300,1,1,1 

2510 NODE 0:PAPER 0:OS:LOCATE 6,10 

:PRINT yPPER$(nc*mbre$)?": *?ps:PEN 

3:L0CATE 6,13:PRINT "EL CPU: 120- 

P 
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Subrutinas 

Lrneas 2580-3250: escribe una carta, que este 
introducida en la variable cartaS, y en la ventana 
indicada por la variable ventana. 

Lineas 3260-3360: rutina fin de jugada. Borra 
las cartas tiradas y espera un instante. 

Lmeas 3370-3490: rutina de busqueda de una 
carta que cumpla una condition introducida en 
FNcondicion (x). Si encuentra una, tira esa carta 
(la escribe en la ventana #5), determina si gana o 
pierde, y suma los puntos obtenidos. 

V ariables 

Las mas importantes en el desarrollo del 
programa son: 

a$(): contiene las cartas segun el orden 

en que se van a dar. 

b$(): contiene en cada momento las tres 

cartas del jugador. 

c$(): id. con las del ordenador. 

1(): valores en puntos de las cartas del 

jugador. 



m(): id. del ordenador. 

p: puntos acumulados por el jugador. 

q: determina quien ha ganado, y por 

tanto a quien toca jugar el 
primero en la siguiente baza. Si es 


2520 PEN l:LOCATE 6,20: PRINT "otra? 
s/n'M 

2530 q*e$=INKEVI: qeet=UWERt{qvet3: 
IF qtte$=*s* THEN 2540 ELSE IF m%~ 
V THEN CIS:NODE LEND ELSE GOTO 2 
530 

2540 FOR i=l TO 48:al(i5***:NEXT 1 

2550 FOP j=I TO 3 

2560 b»(j}=":c»(i')a* , :KEXT .! 

2570 GOTO SO 

2580 subrutina para escribir 1 as 
cartas en las ventanas 
2590 PEN #{ ventana), C):PflPER ICventa 
na).:l: IF cariaf="?:* THEN 2740 ELSE 
IF LEFTt(carta$,n=*r THEN nu»=10 
ELSE nj&=VAL(cariat! 

2500 ON ma SOTO 2620,2760,2800.284 

0,2920,3000,3070,3150,3190,3230 

2610 ' escribe el as 

2620 ON ASC(RI6HTt(cartat,l))-225 S 

0T0 2630,2660,2630,2720 

2630 LOCATE #(ventana).4,1:PRINT #{ 

ventana),cartas;:LOCATE ICventana), 

1,7:PRINT #{ventana),car tat; 

2540 LOCATE #Cventana),3,3:PRINT #( 
ventana),CHR4C240)j:LOCATE tiventan 
a),2,4:PRINT #fventana),CHRI(2415+C 
HRI.143)+CHR$C2i2); LOCATE KvenUn 
a),3,5:PRINT i(ventana),CHR$(243)i 
2650 GOTO 2740 

2660 LOCATE #(ventana),4,I:PRINT #{ 
ventana), cart-al;:LOCATE ICventana), 
1,7:PRINT ICventana),cartal; 

2670 LOCATE Ifventana),3.3:PRINT sC 
ventana),CHRt(244);:LOCATE liventan 
a),2,4:PRINT #«ventana),CHRIC2455+C 


HRt(1433 + CHR$(246); LOCATE iCvsntan 
a),3,5:PRINT 1C ventana ),CHRt124?); 
2680 GOTO 2740 

2630 LOCATE #{ventana), 4,1:PRINT i( 
ventana),cartal!: LOCATE A(ventana5, 
1,7:PRINT ICventana; ,cartal 
2700 LOCATE ft (ventana), 2,3: PRINT #( 
ventana),CHRt(248)+CHRIC 249)+CHRIC 2 
505;LOCATE #(ventana) ,2,4:PRINT #( 
ventana;,CHRI?251? +CRRt(1435+CHRIC2 
52) jLOCATE #( ventana ), 3, St PRINT #( 
ventana),CHRIC247); 

2710 GOTO 2740 

2720 LOCATE 1Cventana) ,4,1:PRINT #C 
ventana),cartal,LOCATE #(ventana), 
i,7:PRINT fKventana ),cartal; 

2730 LOCATE #(ventana),3, 3:PRINT *( 

ventana),CHR$<244);LOCATE Kventan 

a),2,4:PRINT #(ventana), CHR$(253)+C 

URIC 143)+CHRIC254); LOCATE Kventan 

a),3,S:PRINT #<ventana) ,CHR$(243); 

2740 RETURN 

2750 ' escribe el 2 

2760 LOCATE If ventana) ,4, LPRINT l( 

ventana), cartal; LOCATE #<ventana) , 

i,7:PRINT #(ventana),cartal; 

2770 FOR ki=2 TO 5 STEP 3:LOCATE l( 

ventana),3,ki:PRINT ICventana), CHRI 

C170-226+ASC C RI GHTI C c a r t-al, I) ) ); L0 

CATE ICventana),3,ki+l:PRINT ICvent 

ana 3, CHRI ( 1 74-226+ASC ( RI GHTI (c ar taf 

,!)));:NEXT ki 

2780 RETURN 

2790 ' escribe el 3 

2800 LOCATE #(ventana), 4,1:PRINT #( 

ventana 5,car tat;:LOCATE ICventana), 


1,7:PRINT l(ventana!, cartal; 

2810 FOR ki=2 TO b STEP 2LOCATE It 

ventana3,3,ki:PR INI I( ventana3,RIGH 

TIC cartal, 1); LOT ki 

2820 RETURN 

2830 " escribe el 4 

2840 LOCATE ICventana), 4,1:PRINT If 

ventana),cartal;:LOCATE #(ventana., 

1,7:PRINT I ( ventana).c ar tat■ 

2850 FOR ki=2 TO 4 STEP 2 

2880 FOR k i=2 TO 5 STEP 3 

2870 LOCATE ICventana), ki,kj:PRlNT 

M ventana),CHRIf 170-226+ASCCRIGHTIC 

cartat,15)3;:LOCATE #( ventana>,ki,k 

j+1: PR I NT IC ven tana ), CHRI C ! 74 ■- 226+A 

SC ( RIGHT!(c ar tat.i) )3 i 

2880 NEXT kj 

2890 NEXT ki 

2900 RETURN 

2910 ' escribe el 5* 

2920 LOCATE Ifventana),4, IIPRINT 1C 
ventana).. cartal;:LOCATE ICventana). 
i,7:PRINT l(ventana),cartal; 

2930 FOR ki=2 TO 4 STEP 2 
2940 FOR kj=2 TO 6 STEP 4 
2350 LOCATE ICventana), ki, kj :PRIN T 
#(ventana),RIGHT1C car tat,1 )j:NEXT 
i 

2960 NEXT ki 

2970 LOCATE #Cventana),3,4:PRINT 1C 
ventana),RIGHTtCcartal,!); 

2980 RETURN 

2930 ' escribe el 6 

3000 LOCATE #Cventana),4,!:PRINT #( 

ventana),cartal;:LOCATE ICventana) 

I,7:PRINT Ifventana),cartal; 

3010 FOR |;i=2 TO 4 STEP 2 
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FNcondicion: 


ganacpu: 


encontre: 


0 juega primero el ordenador, si 
no el jugador. 

t: numero de jugadas que se lie van. carta$, 

Sirve para ir rebajando las cartas ventana: 
del mazo. 


Serie 

QRD 

numero de la carta elegida por el 
jugador (1, 2 6 3). 
contiene la condicion para tirar 
una carta. Es una funcion que da 
un resultado booleano. 
variable booleana, que indica 
quien gana en la jugada si ej, 
ordenador tiene la carta buscada. 
tambien es booleana. Si es cierto 
quiere decir que ya se ha 
encontrado una carta, y no es 
necesario seguir buscando en otras 
opciones. 

variables de entrada a la subrutina 
de escritura de las cartas. 


3020 FOR k j=2 TO 6 STEP 2 
3030 LOCATE l(ventana),ki,kj:PRINT 
fi(ventana 3, RIGHT$(cartai, 1 ) l 'NEXT k 
j 

3040 NEXT id 

3050 RE T URN 

3060 ' escribe ei 7 

3070 LOCATE #(ventana), 4, i:PRINT #( 

ventana) , cartas;:LOCATE It ventana), 

1.7: PRINT Kventana), car tat j 
3080 FOR ki=2 TO 4 STEP 2 
3090 FOR kj-2 TO 6 STEP 2 
3100 LOCATE #( ventana) s ki :PRINT 
Kventana).RIGHTKcartal,1)j:NEXT k 

3110 NEXT ki 

3120 LOCATE # C van tana >» 3_. -3: PR INI ii 
ventana),RI6HT$< carta$,1 5 5 
3130 RETURN 

3140 ' escribe la iota 
3150 LOCATE *Cventana),3,itPRINT fii 
ventana),* 10"!RIGHTS(carta*,1)i:L0C 
ATE #Cventana),i.7:PRIN T fitventana) 

, ”10";RIGHT*(carta*,15: 

3160 LOCATE #(ventana) ,2,3*.PRINT K 
ventana),CHR*(1SOi+CHR$(154)+CHR*(1 
56) ): LOCATE (Kventana),2,4;PRINT fit 
ventana),CHR*t147)+CHRt(154)+CHR*(1 
56);tLOCATE #tventana),2,S:PRINT li 
ventana),CHRIt147)+CHR*i154)+CHR*(1 
53): 

3170 RETURN 

3180 ' escribe la reina 
3190 LOCATE #Cventana),3,1:PRINT fii 
ventana),"11":RIGHT*icarta*, 1) i:L0C 
ATE #(ventana),1,7:PR3NT fiiventana) 


," 11"; PJ GHT* (e a r t a 1,1) ? 

3200 LOCATE fi(ventana),2,3:PRINT fii 

ventana), CHRIt 150)+CHR*( 154HCHRK1 

56)5tLOCATE #(ventana),2,4:PRINT #( 

ventana),CHR$(149):LOCATE fitventana 

),2,5:PRINT I(ventana3,CHRf( 1473+CH 

Rt(154HCHRt(i53)J 

3210 RETURN 

3220 ’ escribe el rey 

3230 LOCATE #{ventana),3,I:PRINT #( 

ventana),"12"1RIGHT*;carta*,13::L0C 

ATE #( ventana >,-1,7: PRINT It ventana) 

,“12"1 RIGHT*!carta*,t)* 

3240 LOCATE Kventana) ,2,3:PRINT It 
ventana),CHRIiISOdCHRtCI54)+CHRI(1 
56);:LOCATE It ventana),2,4:PRINT fii 
ventana),CHR*{151)!CHRIt154 3;CHR*i2 
555:LOCATE Itventana),2,5:PRINT fiiv 
entana),CHR*(1493+” "+CHR*(1493 
3250 RETURN 

3260 subrutina de fin de jugada.B 
orra las cartas tiradas y espera un 
tieapo 

3270 FOR h=l TO 3 

3280 IF c*(h)=cartal THEN c*ih)="” 

3290 NEXT h 

3300 b*(n)="” 

3310 FOR bb=l TO dura 
3320 NEXT bb 
3330 FOR vv=l TO 6 
3340 IF vv<)4 THEN CLSfi(vv) 

3350 NEXT vv 
3360 RETURN 

3370 'rutina que busca la carta que 
rumple la condicion deseada 
3380 encontre-FALSE 


3390 FOR i=l TO 3 

3400 IF c*fi)=*x" THEN 3420 

3410 IF FNcondicion(i) THEN 3440 

3420 NEXT i 

3430 GOTO 3490 

3440 ventana=6:cartal=clii):G05US 2 
590 

3450 L0CA T E 5,12 

3460 IF ganacpu THEN q=l:PRINT " P 
IERDES " ELSE q=0:p=p+ati)+I(n):PR 
INT * GANAS " 

3470 G0SU8 9270 
3480 encontre=TRUE 
3490 RETURN 



Para quo tus 
dcdos no real iron 
cl trabajo duro, 

AMSTRAD 



Semanal lo hacc 
por ti Todos los 
listados que 
incluyan estc 
Iogotipo se 
cncuentran a tu 
disposition en un 
cassette mcnsual, 
solicitanoslo. 
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Recuperar fidieros 

«/* -v 




Uno de los problemas de 
los diskettes es su fragilidad. 
Muchas veces se descubre que 
los datos de un fichero no se 
pueden leer porque algunos 
de los sectores del diskette 
estan irrecuperables. Pero no 
todo esta perdido. Se pueden 
recuperar todos los datos 
menos los que esten escritos 
precisamente en el o los 
sectores defectuosos. 
Suponiendo que el archivo 
PRUEBAS.DAT tenga un sector 
defectuoso, haciendo: 

RECOVER PRUEBAS.DAT 

el ordenador repasa sector 
por sector todos los de ese 
programa, inutilizando los que 
den error, pero dejando el 
programa operable. Ademas, 
escribe en una tabla que 
guarda en cada disco el 
numero de sector erroneo, 
para no volver a utilizarlo. 

Otro uso de esta orden es 


en el caso en que el directorio 
del disco esta danado, o se 
ha borrado. RECOVER c:, sin 
mas parametros, rehace un 
directorio borrado, dando a 
los programas el nombre 
FILE0001.CHK. Pero, 
atencion, esto lo hace con 
TODOS los programas y 



archivos de la unidad de 
disco, dado que no tiene 
manera de saber cuales estan 
bien y cuales no. No es 
aconsejable ejecutar esta 
orden a no ser que todo el 
disco sea inservible, o bien se 
tenga copia de seguridad de 
todo el contenido del disco. 
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Discos como subdirector os 


Hay ocasiones en las que 
hay que manejar ficheros o 
programas de un 
subdirectorio desde otro 
distinto. En esos casos, para 
ilamar al programa o fichero 
hay que teclear ademas de su 
nombre e! de los directories a 
recorrer para llegar a el. 

(% directorio ^ subdirectoricQ 
% nombre...) 

El MSDOS dispone de 
una orden que 
«simula» la creacion de una 
nueva unidad de disco, pero 
que en realidad es una 
trayectoria para llegar a un 
directorio. Esta orden es 
SUBST. 

Por ejemplo, si queremos 
convertir subdirectorio 
IMAGENES, que esta dentro 
del subdirectorio GEMGRAPH, 
que a su vez esta en el 
directorio GEM en la unidad 
de disco F, de manera que 
baste con especificar 
Ftnombre.ext para que vaya 


a ese subdirectorio, haremos: 
SUBST F' 

C: % GEM % GEMGRAPH % IM¬ 
AGENES 

De esta manera, toda 
referenda esue se haga a la 
unidad de disco F: se estara 
haciendo realmente al 
directorio IMAGENES. Una 
vez que se acabe de utiiizar 
esta orden, para eliminar la 
definicion se hara: 

SUBST F:/D 

Tambien se eiimina la orden 
al apagar el ordenador o 
reiniciaiizarlo. 

La unidad que se 
especifique debe ser una letra 
de las NO reconocidas por el 
sistema como posible unidad 
de disco real. El MSDOS 
reconoce como reales a las 
unidades desde la A: hasta la E. 

Utilizando las unidades 
reales, lo unico que se podria 
hacer es «convertir» una de 
ellas en otra, de manera que 
al ilamar un programa a una 


unidad de disco, este ejecute 
las operaciones de lectura y 
escritura en otra. Esto se 
haria con el comando 
ASSIGN. Por ejemplo, si 
queremos que todas las 
operaciones se hagan con el 
disco duro C: y no en 
diskettes, podriamos hacer: 

ASSIGN A = C B = C 

De esta manera, todas las 
llamadas a las unidades A y B 
se ejecutaran en la C: 

Hay que tener mucho 
cuidado con esta orden. Hay 
ordenes que borran todo el 
contenido de un disco, como 
FORMAT o BACKUP. Si se 
tiene asignada la unidad C: 
como unica unidad, y por 
ejemplo se quiere hacer 
BACKUP en diskettes, el 
programa emite un mensaje 
diciendo que se van a borrar 
todos los datos de la unidad 
A: pero en realidad, VA A 
BORRAR LOS DATOS DE LA 
UNIDAD C:. ' 
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Basic mas compatible 


Realmente, casi ningun 
compatible puede ejecutar 
estos BASIC's. Y como habia 
que dar un BASIC con el 
ordenador, Amstrad eligio 
el camino del GEMBASIC, 
totalmente incompatible en 
programas con el BASIC de 
IBM. Otros fabricantes de 
compatibles, sin embargo, 
eligieron adaptor el BASIC 
para que si funcionara en sus 
ordenadores, con lo que el 
BASIC que tienen es 
virtualmente identico al del 
PC. A los usuarios de los 
Amstrad que vayan a hacer 
sus programas en BASIC 
desae el principio, les dara 
casi lo mismo hacerlo en un 
BASIC o en otro, dado que 
sus comandos son muy 
similares. Pero si ya tienen 


programas en el BASIC 
MICROSOFT, no les habra 
hecho mucha gracia no poder 
ejecutarlos en su compatible. 
Pero no todo esta perdido. 
Desde luego, facil solucion no 
tiene, pero aunque 
conseguirlo no sea facil, hay 
un BASIC de compatibles que 
si funciona en Amstrad, y 
es casi identico al 
MICROSOFT, pudiendo 
ejecutar una gran mayoria o 
todos los programas de dicho 
BASIC. Este es el que viene en 
el compatible BONDWELL, y 
su nombre es GWBASIC. Si 
logra conseguirlo, tendra un 
genuino BASIC MICROSOFT 
en sus chips. Como hacerlo es 
algo que queda en sus 
manos. 




En determinados momentos 
resulta importante obtener 
una copia por impresora de 
la pantalla. Si esta pantalla 
solo tiene textos, el asunto no 
plantea problemas, utilizando 
las teclas de mayusculas y 
ImpPt. Pero si la pantalla es 
grafica, para que el resultado 
deseado sea satisfactorio es 
necesario haber cargado 
previamente la orden 
GRAPHICS. Resulta muy util 
incluir esta orden en el fichero 
AUTOEXEC.BAT de manera 
que se cargue 
automaticamente cada vez 
que el ordenador se conecta. 

La copia impresa sale con 
los colores reproducidos en 
forma de escala de grises. Si 
se anade el parametro /R el 
dibujo saldra invertido, es 
decir, que el fondo sera 
oscuro y el dibujo claro. En 
caso de impresoras de color, 
dispone de cinco parametros 
segun e! tipo de impresora, 
siguiendo los estandares de 

IBM. 

Otros dos parametros que 
se pueden especificar son /F, 
que provoca que la imagen 
saiga en el papel girada 
noventa grados, y /C, que 
centra la imagen en el papel. 
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COMPLETA 
TU COLECCION 



Solicrta los numeros 
atrasados 

















Tecnicas 
profesionales 
de dibujo en 
tres dimensiones 
(Amstrad CPC). 


Creation de 
dibuios animados 
por Ordenador 
I (Amstrad CKL 


Filmation: 

como se ten heoho 
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/ _ 
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Reloj por 
interrupciones 

Una de las posibilidades menos explotadas de 
los Z80 es la programacion utilizando 
interrupciones. Mediante este tipo de 
instrucciones es posible obligar al ordenador a 
realizar dos, tres o mas tareas de forma que su 
ejecucion parezca simultanea. En esta ocasion, las 
interrupciones se han utilizado para implementar 
la aplicaeion que mas veces ha servido de 
ejemplo, un reloj. ,;Quien se anima a ponerle 
una alarma? 


POP INTEKRUPCIOHES 

10CLS:MEMORY 1999® 

20 DIREC=S4E20 
30 FOR 1=1 T0 17 
40 READ CODES 

IS S?E J =VALra." + KIDS<C0DES,i.2 
\\ POKE DIREC.BYTE:DIREC=DISEC 
+1 

80 NEXT 

ioo”lS»te l.l:PKI»T"I»TROIWCE 

gs 

IIIlEirsi 

I AT 4 RF.200B110000ED53BC4E 


210 


220 


230 


240 


ieo DA ™ ?SSS5rawioSS 

270 DATA ^IH?bB3E09CD1EBB26 

HI SaTA 0621C24ECDECBCFDE1DD 


HI SSI follololfofooooooooo 
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Giros en 
el espacio 


Si le entusiasma la geometrfa tridimensional y 
mas concretamente los giros de objetos solidos en 
el espacio, este programa seguro que lo acogera 
con mucho interes. Al ejecutarse podra disfrutar 
de un giro completo de una figura cubica. 






























































3 s isuss-r*, ko 

50 g=F: H-C:I=- D_H 

6° CLS: I5K 1-J (B +E+H>/2:DK 

70 MOVE <A+D+G)/2.^ D 

AVK -D,-E:CFAVK g. E - 

, E nxr■> /? £ — B”"E+H^/2 i 

80 HOVE ^A-D+G>/2. < draVR - 

dbave d.e-.deavr G. 

D.-E t, . p \ /2 <B-E+H)/2:DR 

awe^I E -bSave -g.-h.deave a. 

100 MOVE I'^^^g'.-hTotAWE^ 
; DEAWE A,B;DEAWR 

11Q B ISK 1.26: SEXT X 


Scroll vertical 
y cambios de pantalla 

Con este sencillo truco los efectos que puede 
conseguir son mas que sorprendentes. 
Simplemente se trata de teclear POKE 
48622,255. 

A primera vista, este poke no, hace 



absolutamente nada, sin embargo si se pulsa la 
tecla ESC las letras cambiaran, y si se pulsan 
repetidas veces esta misma tecla y el ‘1’, 

SHIFT + ‘I’ o SHIFT + ESC, la pantalla dejara 
de tener bordes por arriba y por abajo y se 
produciran extranos cambios en la pantalla. 

Otro pequeno truco, menos sorprendente, pero 
mucho mas eficaz es actuar sobre la posicion de 
memoria 48622 para dcsconectar el RESET. Los 
posibles valores son los siguientes: 

Poke 48622,201 desconecta el reset. 

Poke 48622,195 conecta el reset. 

Pokes para Manic Miner 

Por Eugenio Santos y Gines Lifante 

En la revista numero 88 aparecia un POKE 
para tener vidas infinitas del Manic Miner, pero 
que solamente valla para los programas en cinta 
de cassette. 

Aqul tengo el gusto de enviarles una nueva 
serie de POKEs que al igual que la anterior 
version, nos da la posibilidad de jugar al Manic 
con vidas infinitas, pero para los programas en 
disco, y ademas incluimos una variacion, 
mediante la cual se nos permitira elegir la 
pantalla que mas nos guste para comenzar el 
juego. __ 


io =■*********************** ::;****** 
20 ’****** GINES LIFANTE l: P. '“H0L0 **** 
30 ’*********************************** 
40 CLS 

50 INPUT"Empezar en pantalla (1-201: ",n 


IF n<1 OR n>20 THEN GOTO 40 


1 , at 


70 INPUT"VIdas infinitas (S/N) 

SO OPENOUT"d" 

90 MEMORY SFDF 
100 CLOSEOUT 
110 LOAD"manic 

120 IF a$="S" OR THEN GOTO 140 

130 GOTO 150 

140 POKE &2DA9,0 

150 POKE &2CF3,0 

160 POKE &2CF4,0 

170 POKE &2CF5..0 

180 POKE ?:2DS3,0 

190 POKE &2D84 ,0 

200 POKE ?:2DB5,0 

210 POKE &2540,(n-1) 

220 CALL &FF0 


r-. - 
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macroordenadores como los 
IBM, VAX de Digital y Bull 
entre otros, en modo smcrono o 
asmcrono. 

Por otra parte, la tarjeta 
Kortex posibilita la 
transformation del Amstrad PC 
1512 en un terminal de 
videotexto mediante sistema 
Minitel. 

La operacion de marcaje del 


numero telefonico se puede 
realizar desde el mismo teclado, 
disponiendo la tarjeta de un 
pequeno altavoz que permite 
seguir este proceso. 

De la distribution de la 
tarjeta Kortex 1200 se encarga 
Agroinformatica y 
Comunicaciones, Sagasta 3, 
Zaragoza; tel.: (976) 21 19 28, y 
cuesta 168.000 ptas. 


C omunicacion 
total 


Esta tarjeta Kortex 1200 
totalmente compatible con el 
Amstrad PC 1512, es un 
modem integrado, gestionado 
por software que opera en 
cuatro rangos diferentes: V21 
(300 baudios), V22a (1200 
baudios aslncrona), V22b (1200 
sincrona) y V23 (1200/75 
baudios). 

Permite salvaguardar la 
informacion enviada tanto en 
disco como impresora, 
conectandose no solo a otro 
ordenador compatible PC para 
la transmision y reception via 
telefonica de ficheros de 
caracteres ASCII, sino ademas 
con bancos de datos y 


El otro patron de 
la compatibilidad 

Si en cuanto a ordenadores 
tipo PC se decide tomar como 
patron para la compatibilidad al 
IBM, en el mundillo de las 
impresoras tambien existe un 
standard: la marca Epson. Con 
toda seguridad, en cualquier 
programa que realice graficos 
para plasmar en una impresora, 
habras podido ver esta marca 
en el menu de impresoras tipo. 
Incluso la mayorfa de las 
impresoras graficas del mercado 
(incluyendo las mismas 
impresoras Amstrad DMP) 
cumplen la norma Epson. Tras 
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mucho tiempo de espera, por 
fin la prestigiosa marca c.:ta 
presente en el mercado espanol 
de la mano de Epson-STI, y 
para abrir boca aqul teneis la 
gama FX compuesta por los 
modelos 800 v 1000 de similares 
caracteristicas, pero con la 
diferencia entre ellas del tamani 
de su carro. 

Ambas son capaces de 
escribir a una velocidad de 240 
caracteres por segundo en modo 
elite borrador, reduciendosc a 
40 c.p.s. si se pretende mayor 
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Mas decibelios 

Si cuentas con una cadena 
musical Amstrad y te quejabas 
de potencia sonora para 
organizar guateques o poner 
musica en un jardfn o terraza, 
Ram-Rom, Infantas, 21. 28004 
Madrid; tel.: (91) 522 27 97 te 
presenta la solucion. 

Se trata de un amplificador 
en cascada o booster que se 


conecta a la salida de los 
altavoces de tu equipo 
sustituyendo los de serie por 
otros especiales que aumentan 
hasta los 50 watios la potencia 
sonora. 

La alimentacion del booster se 
realiza de forma independiente 
a la cadena enchufandose 
directamente a la red. Para 
mejorar la fidelidad de la 
cadena dispone de filtros 
correctores de frecuencias, 
asf como 
de 

atenuadores a 
su entrada 
para evitar la 
distorsion. 

Para que te 
suene aun 
mejor, 
Ram-Rom 
te lo ofrece 
por 9.900 
ptas. 



(alidad de impresion (letra 
NLQ). Todos los tipos de letra 
fNLQ, elite, pica, comprimida, 
cxpandida, etc.) se pueden 
obtener por codigos de control 
desde software, pero tambien los 
tipos mas comunes (elite, 
comprimida, NLQ y «draft») se 
consiguen pulsando las 
correspondientes teclas sobre la 
misma impresora. 

Para mayor comodidad, las 
Epson FX estan dotadas de 
funcion de carga automatica de 
hojas sueltas, desmontando a 
voluntad la unidad de traccion 
para el papel continuo. 

Con el fin de reducir el 
tiempo de espera en el 
ordenador cuando se encarga un 
listado de considerable tarnano, 
las FX cuentan con un «buffer» 
de 8 Kb. 

Con estas caracterfsticas, las 
impresoras Epson FX pueden 
hacer muy buena pareja con tu 
Amstrad PC 1512, y si estas 
interesado en ellas podras 
conseguirlas al precio de 84.729 
y 118.045 ptas. para la 800 y 
1000, respectivamente en 
Comercial Nuevos Ministerios, 
en el mismo vestfbulo central de 
la estacion Renfe de la calle 
Raimundo Fernandez Villaverde 
de Madrid. Tel.: (91) 

456 35 58. 



Archivados y 
protegidos 


Para los usuarios de los 
Amstrad PCW y CPC con 
unidad de disco, aqui os 
presentamos este practico 
archivador de disquettes de tres 
pulgadas con capacidad para 
mas de 30 discos. 

Esta fabricado en plastico 
antichoque de color bianco con 
la tapa superior de plastico 
ahumado transparente y cuenta 
ademas con cerradura por Have 
para evitar tentaciones de 
hacerse con los discos de su 
interior a los extranos. 

Se vende al precio de 4.200 
ptas. en Chips & Tips, Paseo de 
la Castellana, 126. 28046 
Madrid; tel.: (91) 262 23 02. 



Para cortes, 
tiritas 

Si hay algo realmente molesto 
entre los que trabajamos con 
ordenadores, debe ser por 
unanimidad un corte del lluido 
elec trico Pero no solo la 
ausencia de energfa electric a 
puede hacernos dario, sino 
tambien otros probleinas 
clectricos son el motivo 
principal de las averfas de los 
ordenadores como las subidas 
bruscas de tension, 
interfcrencias dc ruido, etc que 
llevan consign elevadas facturas 
de reparacion y la perdida de la 
information y tiempo que son 
todavfa mas valiosos. 

Para proteger este lluido 
vital, aqui teneis el Jetrum , algo 
masTftie una fuente de 
alimentacion de seguridad para 
tu Amstrad PCW. CPC o PC, 
ya que cuenta ademas de un 
estabilizador de corriente que 
lecorta los picos de tension e 
interfcrencias 



Su mayor venta]a respecto a 
las demas fuentes de 
alimentacion estriba en sus 
reducidas dimensiones (apenas 
75 mrn de altura) que le 
permitiran alojarse bajo el 
mismo monitor del ordenador, 
ahorrando no solamente 
espacio, sino ademas cableados. 

Avisa acusticamente de la 
ausencia del fluido electrico y 
permite una alimentacion 
interrumpida durante ocho 
minutos a pleno luncionamiento 
o bien hasta veinte y a media 
carga. tiempo en el cual da 
lugar a la realization de una 
copia del trabajo realizado para 
continuarlo cuando se restablece 
la energfa electrica. 

Con este tipo de fuentes de 
alimentacion se puede trabajar 
tranquilamente, sin miedo a los 
temidos cortes de lluido que nos 
haefan perder informacion 

Su precio es de 99.680 ptas. 
y lo podeis encontrar en Sprind, 
Lopez de Hoyos, 27 28006 
Madrid; tel.: (91) 411 17 04 



















Continuaremos hoy profundizando en el tema del espacio tridimensional, en el cual ya 
veiamos la semana anterior como se podian unir dos puntos mediante una recta. 


E 


8n el presente artfculo veremos como se 
pueden formar figuras geometricas en tres 
dimensiones, asf como la forma en que 
deberemos ordenar los datos correspondientes a la 
figura que deseemos dibujar, Para ello lo primero 
que deberemos hacer, segun indicabamos ya la 
semana anterior, sera construir nuestros propios 
ejes de coordenadas, a partir de un origen 
establecido, en una hoja de papel o un folio. 
Seguidamente deberemos dibujar en esa misma 
hoja, la figura que deseemos representar mas 
tarde en pantalla. Estas operaciones mencionadas 
anteriormente, pueden realizarse en la forma 
indicada, o bien dibujar en primer lugar la 
figura, y mas tarde formar nuestro eje de 
coordenadas a partir del centro de la misma. 

Estos dos primeros pasos son muy importantes, 
por lo que conviene que se vea muy claro cada 
uno de los puntos y rectas que forman nuestra 
figura, ya que mas tarde deberemos dar valores a 


cada uno de ellos. Como creo que un ejemplo 
vale mas que mil palabras, en la figura 1 
podemos ver un dibujo que representa un cubo 
en tres dimensiones, teniendo en cuenta que esta 
centrado sobre un origen de coordenadas 


Figura 1 


Eje X 


Eje 


(Hi 
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establecido anteriormente. 

Una vez realizada la figura, deberemos pasar a 
dar valores a cada uno de los puntos que forman 
los vertices de la misma, empezando por uno 
cualquiera de ellos hasta llegar al ultimo, 
teniendo en cuenta y siempre que se pueda, que 
dos puntos correlativos deben estar unidos por 
una recta, para facilitar otras operaciones que se 
deberan realizar mas tarde. En el ejemplo del 
cubo citado anteriormente podemos ver el 
numero correspondiente a cada uno de los 
puntos, en la misma figura 1. Una vez definidos 
todos los puntos que forman las aristas de la 


figura, deberemos proceder a la numeracion de 
las rectas de la misma. Esta operacion debera 
realizarse segun unas normas establecidas, que 
citamos a continuacion. 

— Se empezaran a numerar las rectas, 
empezando siempre por el primer punto, hasta 
llegar al ultimo. Teniendo en cuenta que 
deberemos seguir siempre una misma lfnea (es 
decir sin dar saltos ). 

— Una vez se haya llegado al ultimo punto, si 


aun queda alguna recta por numerar, volveremos 
al primer punto y realizaremos la misma 
operacion anterior. 

— En caso de que dicho punto no tuviera 
otros puntos contiguos, entonces empezarfamos a 
numerar por el segundo punto hasta llegar al 
final. 

— Esta operacion debera realizarse con cada 
uno de los puntos hasta que no quede ninguna 
recta por numerar. 

En la figura 1 podemos observar la 
numeracion correspondiente a cada una de las 
rectas que forman el cubo. Mas adelante veremos 
la numeracion de puntos y rectas correspondiente 
a otras figuras, de forma que no exista ningun 
problema en el momento de proceder a crear 
nuestros propios dibujos. Una vez realizadas estas 
operaciones, pasaremos a definir cada uno de los 
puntos de la figura, a traves de sus tres 
coordenadas, eligiendo para ello una unidad. En 
el caso del cubo, se ha elegido como unidad a la 
mitad de una arista, puesto que es la forma mas 
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- MBi- 

Para construir una figura 
tridimensional, primero hay que 
disenar un eje de coordenadas 
partiendo de un origen establecido 


sencilla de defimr sus coordenadas. En cada caso, 
pues, deberemos elegir la unidad que mas nos 
facilite nuestra tarea. Para realizar esta tarea 
deberemos ademas elegir nuestro propio convenio 
de signos, que en el caso de nuestro ejemplo es el 
siguiente: 

Eje X: todos los puntos que se encuentren a la 
derecha del origen seran positivos, y los que 
esten a la izquierda negativos. 

Eje Y: seran positivos los puntos que se 
encuentren por encima del origen de 



Eje Z: los puntos que esten por delante del eje 
seran positivos, y los que esten por detras 
negativos. 


Una vez establecidos los convenios de signos, 
definiremos cada uno de los puntos de nuestra 
figura mediante las correspondientes coordenadas. 
En el caso del ejemplo del cubo, en la figura 3 
podemos ver cuales son las coordenadas de cada 
uno de los puntos. A partir de este momento 
unicamente nos resta ordenar adecuadamente 
todo este cumulo de datos, lo cual se realiza 
mediante dos matrices, una que contiene el valor 
de cada uno de los puntos, y otra conteniendo los 
pares de puntos que unen las rectas que forman 
la figura. Aunque en nuestro caso esta tarea la 


Matriz de puntos 

Matriz de rcrt 

as 

X Y 

Z 



P. Partida 

P. Llegada 








Punto 1 

1 

1 

1 

Recta 1 

1 

2 

2 

1 

1 

— 1 

2 

2 

3 

3 

— 1 

1 

— 1 

3 

■*» 

.1 

4 

4 

— 1 

1 

1 

4 

4 

0 

5 

— 1 

— 1 

1 

5 


6 

6 

1 

— 1 

1 

6 

6 

7 

7 

1 

— 1 

- 1 

" 

7 

8 

8 

— 1 

— 1 

— 1 

8 

1 

4 





9 

1 

6 





10 

2 

7 





11 

•i 

8 





12 


8 


realizara el programa que aparece al final del 
articulo, expondremos a modo de curiosidad y 
para el que este interesado en ello, dichas 
matrices. 

Como ya hemos dicho anteriormente, no 
deberemos preocuparnos para nada de estas dos 
matrices, ya que el programa se encarga de este 
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10 MODE 2:FACT=500:INC=8 
20 DIM P(3,20!,L(2,2G) 

30 INPUT 'N,PUNTOS: ",PUN 

40 INPUT *N LINEAS: *,LIN 

50 NODE 2 

60 FOR N=1 TO PUN 

70 LOCATE 1,1:PRINT *PUWTO';N 

80 LOCATE 1,5:INPUT *1= *,P(1,N) 

90 LOCATE 10,5:INPUT "Y= *,P(2,N! 

100 LOCATE 20,5:INPUT "Z= *,P(3,N) 

110 CLSlNEXT N 

120 FOR N=1 TO LIN 

130 PRINT "LA LINER"iNi'UNE LOS PUN 

TOS:" 

140 LOCATE 1,5:INPUT "PUNTO OE PART 
IDA: *,L(i,N) 

150 LOCATE 1,7:INPUT "PUNTO OE LLE6 
AOA: \L(2,N) 

160 CLS:NEXT N 
170 60SUB 180:SOTO 290 
180 MODE IlORISIN 300,200 
190 FOR N=1 TO LIN 
200 PU1=L(1,N):PU2=L(2,N) 

210 PX1=P(1,PU1):PY1=P(2,PU1):PZ1=P 
(3,PU!) 

220 PX2=P< 1, PU2): PY2=P< 2, PU2) I PZ2=P 
<3,PU2) 

230 PZ1=PZ1+INC:PZ2=PZ2+INC 

240 XF1=(PX1/PZ1)4FACT:YF1={PY1/PZ1 

ItFACT 

250 XF2=CPX2/PZ2)*FACT:YF2=(PY2/PZ2 
14FACT 

260 MOVE KF1,¥F1:DRAW XF2.YF2 
270 NEXT N 
280 RETURN 

290 IF IHKEYC14)=0 THEN FACT-FACT-1 
0:S0SU8 180 

300 IF INKEYI12)=0 THEN FACT=FACT+l 
OlSOSUB 180 

310 IF INKEYI 18)=0 THEN SOTO 330 
320 60T0 290 

330 CLEAR INPUT:MODE 1:INPUT "NOMBR 
E FISURA'jNI 
340 OPENOUT N$ 

350 WRITE *9,FACT,PUN,LIN 
360 FOR N-l TO PUN 
370 WRITE #9,P(1,N),P(2,N),P(3,N) 
380 NEXT N 
390 FOR N=1 TO LIN 
400 WRITE I9,L(1,N],L(2,N) 

410 NEXT N 
420 CLOSEOUT 
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Figure 4 




trabajo. Para ello, cuando ejecutemos el 
programa, deberemos ir respondiendo a cada una 
de las preguntas que se nos hagan; asf pues, en 
primer lugar se nos pedira el numero de puntos y 
lfnea que forman la figura, en el caso del cubo 
estas serfan 8 y 12 respectivamente. A 
continuation deberemos introducir las 
coordenadas de cada uno de los puntos, y, por 
ultimo, deberemos indicar cuales son los puntos 
de partida y llegada de cada una de las rectas. 
Una vez introducidos todos los datos, podremos 
aumentar o disminuir el tarnano de la figura con 
las teclas de cursor «F5» y «F2». Cuando se 
obtenga la figura deseada, deberemos pulsar 
“Return”, con lo cual se sal varan en disco o en 


La ordenacion de los datos 
convencionales que le hemos dado a 
cada uno de los puntos y rectas se 
realiza mediante dos matrices 


cinta los datos correspondientes a dicha figura. 

Por ultimo, y para que no pueda quedar ninguna 
duda de la forma en que se deben obtener los datos 
para cada uno de los dibujos creados, en la figura 
4 podemos ver los correspondientes a una piramide, 
los cuales podemos introducirlos tambien en el 
programa que aparece al final del artfculo. 
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Lucha a muerte en los domimos de Drax 



Hemos visto todo tipo de aventuras llevadas al ordenador 
sobre abnegadosy nobles guerreros. Todas, por lo general, 
tienen algo en comun. La finalidad de estos personajes, 
cast siempre medievales, era salvor a la princesa de tumo. 
Eljuego que traemos hey a estas pdginas no difiere en 
esto ultimo, pern, por la epoca en que se desarrolla, 
aquellos tiempos en que la terra estaba poblada de 
barbaros, es mucho mas crudo. Cuando terminemos 
dejugar con Barbarian tal vez veamos escurrir, por 
debajo del monitor del ordenador, un fluido denso 

y viscoso. 


TJ 

A A ace muchos siglos existfa un reino, Leo- 
nia, cuyo rey tenia una hija envidia de las diosas 
por su hermosura y candor. El rey Kull cuidaba 
a Mariana, asf se llamaba su hija, como al tesoro 
mas preciado por el. Llegarfa un dia en el que 
deberfa entregarla a un prmcipe de algun reino 
vecino para crear una alianza de Estados, pero 
esto tardarfa en llegar debido a su juventud y, 
hasta ese momento, Kull se desvivfa por su hija. 

Un oscuro dfa, la tragedia se cernio sobre el 
rey. Drax, un brujo que vivfa en las tierras de 
este, rapto, mediante sus malas artes, a la hija de 
Kull El dolor sobrecogio el corazon de este, e in- 
mediatamente dispuso un bando: El guerrero que 
consiguiera liberar a su hija, decia el rey, seria 
colmado de oro y nombrado general de todos sus 
ejercitos. 

Evidentemente, acudieron a esta llamada un 
incontable numero de guerreros, pero el poder de 
las sanguinarias ordas de Drax era grande, y nin- 
guno triunfo en la mision. 

Despues de algun tiempo, se oyo decir que se 
acercaba al reino un poderoso guerrero barbaro 
del norte con la intencion de conseguir fama y 
fortuna. Sus hazanas le pieced fan, por lo que 
Kull reavivo sus esperanzas. Tal vez este hombre 
pudiera liberar a su hija. 
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Manat nos ha paretido que un juego 
basado en la violensia sea lo mejor para 
pasar el rato, pero desde luego en 
Barbarian esfa estd justificada. 


JUEGOS 


Cuando Akon, asf se llamaba el guerrero, se 
acerco a las tierras de Drax, comenzaron a cru- 
zarse en su camino los sicarios de este. Eran du- 
ros y sanguinarios, capaces de cometer las mas 
desalmadas fechorfas. Esto no arredro a Akon, 
quien, blandiendo su impresionante espada, dio 
cuenta de los siete asesinos de Drax que encontro 
en los bosques proximos al castillo de este, Esto 
no fue nada facil, ya que cada contrincante era 
mas experto que el anterior. A medida que se en- 
frentaba con otro guerrero, este parecia que vela 
venir mejor sus golpes y, por lo tanto, los esqui- 
vaba con mayor facilidad. No obstante, tras cor- 
tar alguna cabeza que otra, Akon pudo continuar 
hacia el cubil del raptor de Mariana. 

Una vez dentro del castillo de Drax, elimino a 
los soldados que se encontraban de patrulla, esto 
fue realmente sencillo para Akon, y penetro en la 
sala principal donde se encontraba el siniestro 
brujo. AIK empezo, una vez mas, otra serie de 
sangrientos enfrentamientos. Pero si los anterio- 
res, los celebrados en el bosque, fueron violentos 
y dejaron lleno de heridas a Akon, estos no pare- 
cfa que fueran a ser menos. Los siete guardias 
personales de Drax eran mas peligrosos que los 
matones que Akon tuvo que eliminar en el bos¬ 
que. El ultimo de ellos, un guerrero bianco vesti- 
do totalmente de negro, fue el mas duro de to- 
dos. En este combate el cuerpo de Akon quedo 
banado en sangre. La debilidad cubria sus ojos 
cuando, haciendo un sobrehumano acopio de 
fuerzas, levanto su enorme y pesada espada para 
asestar un corte volante al cuello. La cabeza del 
asesino cayo al suelo, mientras de su cuello salla 
un chorro de sangre. Tras este ultimo combate, o 
eso pensaba el, aparecio Drax. El brujo, con una 
simestra sonrisa, extendio sus manos y lanzo 
unos perfidos conjuros. Akon se lanzo al suelo y, 


MOVIMIENTO DE LA PALANCA 
DE MANDOS SIN OPRIMIR 
EL DISPARADOR 





MOVIMIENTO DE LA PALANCA 
DE MANDOS OPRIMIENDO 
EL DISPARADOR 


CORTE AL CUELLO 


SALTO, 

Solo asi nos libraremos cuando un 
enemigo ruede hacia nosotros. 


CORTE AL CUELLO, 

Aunque en esta ocasion hemos falla- 
Jo. este qolpe es sumamente efectivo. 



CORTE DE P1ERNA 
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PROTEGER EL CUERPO. 

Si no hacemos esto con rapidez y ha- 
bilidad nos veremos mal mis de una 

vez. 



CABEZAZO. 

Este tipo de acciones no es muy or- 
todoxo que digamos, pero en la guerra 
y en el amor todo vale. 




rodando, se abalanzo sobre Drax asestandole un 
fuerte mandoble. El viejo brujo murio casi ins- 
tantaneamente. Despues de esto, Mariana salio 
corriendo a felicitar a su Salvador, y se dispuso 
con este a regresar al castillo de su padre. La fe- 
licidad quedarfa para estos ultimos. Para Akom 
sen an honor, oro y fama. 

Parece, segun se puede leer, que no hay mu- 
cho que distinga este juego de otros de tema si¬ 
milar. Nada mas lejos de la realidad. Si bien ha- 
biamos visto juegos en los que los espadazos, gol- 
pes y demas acciones eran reales, Barbarian es, 
ademas, crudo. Baste decir que por cada golpe de 
espada asestado veremos salir la sangre de la he- 
rida. El chorro en algunos casos. Realismo al 
maximo. 

Aclarado este punto, nos centraremos en des- 


cribir la elaboration del juego. Para ello comen- 
zariamos por recordar que Barbarian es de la ca- 
sa Palace Software, cosa esta que generalmente 



f? tolor de la tamiseta es lo unito que, 
junto al tolor de la piel, diferenda a un 
guerrero de otro. 



CORTE VOLARITE AL CUELLO 

Este es el inicio de la rotunda serie •* 
de imfigenes que podriis ver mfie 

adelante. 


MOVIMiENTO ADELANTE 
Y ATRAS. 

Cuidado cuando nos movamos «gfc 
aei. Pueden pillarnos despreve- 
nidos. 





CORTE AL CUERPO. 

Si no se aparta nuestro contrario le 
hacemos una brusca operacibn de ri- 
n6n. 
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RODAR ADEIANTE Y ATRAS 

Este movimiento no es nada artisti- 
co, pero consigue derribar e inmovi- . 
lizar al oponente. “ 



conlleva productos de calidad. En lo referente al 
nivel grafico se puede afirmar que es bastante 
bueno en lo que concierne al tamano de los pro- 
tagonistas, y a la gama de colores utilizados para 



GOLPE A LA CABEZA. 

Parece que los dos espadachines se 
van a producir un buen dolor de ca- 

beza, ieh? 




JUEGOS 


Es turioso el desden ton el que el 
reptilesto sirviente retira las tabezas y 
los tueipos de los guerreros taidos. las 
tabezas las aparta a patadas. Observarlo, 


reflejar el escenario de la aventura. La definicion 
no es sorprendente, pero tampoco esta mal conse- 
guida. El sonido si que es irnpresionante. No se 
podria pedir mayor perfeccion en la reproduccion 
del choque de espadas. 

Para el final, y apart ado del resto, hemos deja- 
do el comentario acerca del movimiento. Lo he¬ 
mos hecho asf, porque de nada serviria lo ante- 
riormente mencionado acerca del desarrollo del 
juego, si todo esto no estuviera acompanado de 
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un movimiento capaz de anadir a la action la ra- 
pidez necesaria. El movimiento en Barbarian no 
solo es rapido, sino que ademas es natural. 

Todo lo anteriormente mencionado forma un 
juego de una calidad notable, y que no dudamos 
en afirmar que causara sensation entre los 
«juegomamacos». 

Antes de terminar nos gustaria dar un consejo 
acerca de un punto, y llamar la atencion sobre 
otro. El consejo es el siguiente: para disfrutar 
realmente de la action de Barbarian interesa ju- 
garlo con joystick. 


Cuando se juepa ton la option dos 
personas funtiona un reloj de tiempe . 
Contamos ton un minuto, mas o menos, 
para detidir el tombaie. 



Cargadores para Barbarian 

Mas de uno ha bra pensado. que los carga¬ 
dores de Barbarian le concederian la posibili- 
dad de «cargarse», y nunca mejor dicho, a los 
siete contrincantes con los que cuenta cada 
una de las dos partes de este juego. Se equi- 
voca. En las batallas las victorias se logran con 
sangre, sudor y iagrimas, por lo que los carga¬ 
dores solo permiten elegir dos cosas: el gue- 
rrero con el que queramos pelear, para ello solo 
deberemos dar un numero de cero a siete, y si 
queremos volver a pelear, o no, con el mismo 
guerrero cuando nos maten. Para esto solo de¬ 
beremos pulsar «s» o «n». 



CARGADOR 1. a PARTE 

10 Pokes BARBARIAN I Uinta) 


90 LOCATE 3,10:PRINT "Eispezar por e 

(38," ");CKRt(7);:G0T0 110 

20 Pedro N. Cuenca 


I aisno que te mate ? WHILE »it= 

120 IF nil tip THEN POKE 47E4,4ED;P 

BO FOR X=2QC0 TO &7E8:READ fit:POKE 

*' 1 ■it=UPPER$(INKEYt):WEND:PRINT ■i 

OKIE 47E5.4C7 

X, v'ALt "&"+A$>: NEXT 


t 

130 POKE 47E2,en 

40 MEMORY 8191:LOAD "! 


100 IF »it=*S" THEN POKE 2000,0:P0K 

140 CALL 440 

SO POKE 42014,201 


E 2001,0 

ISO CALL 2000 

60 CALL 42000 


110 LOCATE 3,15: INPUT -"For que enei 

160 DATA 18,FAF,21,24,6F,6,5,77,23 

70 POKE 4A3.201 


igo espiezas (0-7) ”;en:IF en<0 DR 

,-10, FC, 3E, C9,32,21,6C, 3£, 0,32,25,6F 

80 MODE 1 


en>7 THEN LOCATE 1,IS;PRINT STRING* 

,C3,F2,6A 


CARGADOR 2.° PARTE 

10 ' Pokes BARBARIAN II feints) 


90 LOCATE 3,10:PRINT "Eispezar por e 

<38," ”)jCHRt(7);:G0T0 110 

20 Pedro M. Cuenta. 


1 mismo que te mate ? WHILE mit= 

120 IF niit="S” THEN POKE 47E4,4ED:P 

30 FOR X=2000 TO &7E8:READ At:POKE 

0 ":i»it=UPPERtCINKEYt): WEND: PRINT mi 

OKI 47ES.4C7 

I,VAL{"4"+At)INEXT 


t 

130 POKE 47E2,en 

40 MEMORY 8!Sl:LDAD *! 


100 IF mit="S" THEN POKE 2000,0:P0K 

140 CALL 440 

SO POKE 42014,201 


E 2001,0 

ISO CALL 2000 

80 CALL 42000 


110 LOCATE 3,IS:INPUT "Por gue enem 

160 DATA 18,F,AF,21,EE,6F,6,5,77,23 

70 POKE 4A3,201 


igo empiezas (0-7) ”|en:IF en.<0 OR 

,10,FC,3E,CS, 32,80,6E,3E,0,32,EF,6 

80 MODE 1 


en>7 THEN LOCATE US:PRINT STRING! 

F,C3,F2,6A 
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Drax y sus hechizos. Cuidado 
con ellos. 


La princesa. No es la de la caratula, 
^verdad? 


Escalofriante, ^no es cierto? 


tsta es la secuencia de imageries m6s impresionante 
que podremos ver en Barbarian, Ya hemos mencio- 
nado en el texto que el movimiento est£ conseguido 
al 100 por 100. Tampoco pensamos que lo est: me- 
nos el estudio que han hecho los programadores acer- 
ca de los golpes con espada, Se nos hiela la sangre 
en las venas al ver esto. No pensamos que le ocurra 
lo mismo al guerrero de la camiseta azul. 




i'Vaya bicho mas desagradable!! 
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JUEGOS 

Algiiafis Id wo psmi eomljiUj 

Vamos a ofreceros algunas ideas que os podran resultar interesantes, bastante 
generales, eso si, puesto que como ya os deciamos en el texto, una vez que se ha 
vencido un guerrero el siguiente es mucho mas fiero y astuto, por lo que describir 
particularidades seria largo y tedioso. No debemos 
olvidar que son catorce contrincantes en total. 

Una de las primeras cosas que hacen casi todos los oponentes al principio del 
combate es rodar con la intencion de tirarnos al suelo. Hay que estar preparados y 
lanzarnos antes que ellos o esquivarlos. En el suelo estamos mas a su merced. 

Otra cosa que suelen hacer con bastante frecuencia es intentar arrinconarnos y 
asi impedir movernos con libertad. Una solucion para evitar esto es rodar y 
tirarlos al suelo. Asi conseguiremos pararlos. Otra alternativa, mucho mas dura, 
es intentar entretenerlos hasta conseguir efectuar un corte volante al cuello y 
cortarles la cabeza. Esto requiere bastante practica. 

Cuando venzamos al septimo contrincante del castillo aparecera el mago 
lanzandonos conjuros. Mientras estemos en la otra esquina de la sala no nos 
alcanzaran, y por tanto no nos afectaran, pero si Megan a tocarnos varias 
veces nos produciran una muerte instantanea. Para terminar con el lo mas 
efectivo es un ataque rapido y directo. Mariana nos espera. 

No obstante todo lo dicho, tambien es interesante observar las 
evoluciones de nuestros adversarios. Podemos aprender mucho. 



La llamada de atencion, una vacuna mas que 
otra cosa, es acerca de la escultural Mariana que 
sale en la caratula del juego. Que nadie espere 
ver cuando llegue al final de este una princesa 
tan exuberante. Nuestros modestos Amstrad no 
son sombreros de prestidigitador 
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ALSICONT 

de Alsi Comercial 

P.V.P.: 29.120 ptas. 

Alsicont es un programa 
creado con la finalidad de 
llevar la contabilidad de 
cualquier empresa exigente. 

El programa consta de 
cuatro niveles (cuentas, 
subcuentas y dos niveles mas 
de estas ultimas) en diario, 
mayor y balance de sumas y 
saldos, con lo cual per mite 
perfectamente llevar varias 
contabilidades en un solo 
disco o la contabilidad de 
una empresa dividida en 
depart amentos. 

A. Cuentas prineipales: 

La cantidad de cuentas 
que se pueden utilizar en este 
programa es llimitada, 
pudiendose crear cuantas 
sean necesarias. 

Automaticamente, las 
cuentas pasaran a formar 
parte del Plan de Cuentas, 
Balances de Sumas y Saldos 
y Balance de Situacion, 
pudiendo ser utilizadas en 
todos los aspectos, incluso 
para sacar extractos de 
cuenta. 

Las cuentas constan de tres 
dfgitos. En su creacion es 
conveniente ajustarse al Plan 
General de Contabilidad 
Nacional en las cuentas de 
balance y absolutamente 
imprescindible en las cuentas 
de regularizacion con objeto 
de poder aprovechar las 
facilidades de activo y pasivo, 
en donde aparecen agrupadas 
por grupos de acuerdo con el 
mismo. 

B Subcuentas: 

Todas las cuentas 
prineipales pueden tener 
subcuentas. El numero 
maximo de estas es de 999 y 
es necesario crear, como 
mfnimo, una subcuenta para 
cada cuenta, ya que el diario 
trabaja con subcuentas. 

En la creacion de Plan de 
Cuentas, se establece el 
numero, nombre de la cuenta 
y saldo inicial de la misma. 


En los extractos de cuenta 
aparecen, por lo tanto, saldo 
inicial, asientos de diario con 
cargo a esta cuenta, suma del 
debe, suma del haber, saldo 
final y saldo acumulado. 

C. Balances: 

En el balance de sumas y 
saldos aparece el numero de 
cuenta o subcuenta, nombre 
de la misma, debe 
acumulado, haber acumulado 
y saldo deudor/acreedor de 
cada una de las cuentas, asf 
como el total del balance. 

En los balances de 
situacion aparecen las 
correspondientes cuentas 
agrupadas en el grupo a que 
corresponden de acuerdo con 
el Plan Contable, asf como 
los totales de cada grupo y el 
total de activo/pasivo. 

D. Diario de movimientos: 

Al efectuar los asientos en 
el diario de movimientos, 
hay que introducir los 
siguientes datos: fecha, 
cuenta, contrapartida, 
concepto, importe, siendo 
estos mismos asientos de 
diario los que aparecen en 
los extractos de cuenta. 

La cantidad de asientos del 
diario esta limitada por la 
capacidad de almacenamiento 
del diskette a utilizar. En 
diskette de 1.000 k caben 
30.000 asientos 
aproximadamente. 

E. Estado de cuentas: 

Es posible extraer una 
relacion de cualquier cuenta 
desglosada con sus 
correspondientes subcuentas, 


apareciendo el total de cada 
subcuenta y la suma de todas 
ellas o cuenta principal. 

F. Regularizacion 
del periodo contable: 

Al finalizar el ejercicio 
economico, es posible 
efectuar la regularizacion del 
periodo contable, mediante la 
cual los saldos de las cuentas 
de gastos e ingresos son 
absorbidos por la cuenta de 
explotacion, cuyo saldo es 
absorbido a su vez por la 
cuenta de perdidas y 
ganancias. 

Una vez cargado el 
programa, aparece un menu 
con las siguientes opciones: 

1. Preparar contabilidad: 

La presente opcion permite 
al usuario dar nombre a su 
contabilidad y preparar la 
impresora. 

2. Reponer saldos iniciales: 

Permite la introduction de 

los saldos iniciales de las 
subcuentas que componen el 
Plan, evitando asf la 
realization del asiento de 
apertura. 

3. Plan de cuentas: 

El programa se suministra 
con un Plan de Cuentas 
abierto. Este Plan no implica 
la obligatoria utilization por 
parte del usuario, ya que este 
confeccionara su propio Plan 
de Cuentas mediante las 
opciones «borrar cuentas» y 
«agregar cuentas», 

4. Diario de movimientos: 

Al pulsar esta opcion, 
aparece, a su vez, un 
submenu con las siguientes 
opciones: 

4.1 Introducir asientos. 

4.2 Imprimir diario 
acumulado. 

4.3 Borrar asientos. 

4.4 Apunte mensual de 
diario. 

Esta ultima opcion nos 
permite sacar un asiento 
multiple con los saldos de las 
cuentas que han intervenido 
a lo largo de un determinado 
mes, permitiendo, asimismo, 


























el extracto de los doce meses, 
uno por uno. 

Esta opcion es de suma 
utilidad para todos aquellos 
usuarios que ademas de 
llevar la contabilidad con el 
presente programa poseen 
libros oficiales de 
contabilidad. 

5. Menu de totales: 

Las subopciones de que 
consta la presente opcion, 
son las siguientes: 

— Activo/pasivo. 

— Estado de cuentas y 
subcuentas. 

— Balances de sumas y 
saldos. 

— Regularizacion, 
apertura y cierre. 

— Extractos de cuentas. 

— Mayor de cuentas. 

— Extracto de subcuentas. 

— Actualizacion de 
asientos. 

Todas las opciones tienen 
la posibilidad de pantalla o 
impresora. 


RPA VIDEO CLUB 

dc RPA Systems 
P.V.P.: 19.600 ptas. 

La presente aplicacion esta 
dirigida para la gestion de 
videoclubs. 

Entre sus caracterfsticas 
generales podemos destacar 
las siguientes posibilidades, 
que hace de Rpa Video 
Club un programa completo 
y que se adecua a las 
necesidades a las que va 
dirigido 

— Capacidad para mas de 
1.600 socios o . sus 
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respectivos datos y peliculas 
ilimitadas. 

— Opera con los tres 
sistemas de video del 
mercado (Beta, VHS y 2000) 
de manera independiente. 

— Posibilidad de 
localization inmediata de 
cualquier videofilme o socio. 

— Funcion de semicaja, 
dando en todo momento el 
importe que debe abonar el 
socio por las peliculas que 
alquila, segun precios 
estipulados previamente y 
siempre modificables. 
Ademas, el programa puede 
recordar deudas que los 
socios tengan contraidas con 
el establecimiento. 

— Tratamiento 
diferenciado para dos tipos 
de socios, asi como dos tipos 
de bonos o abonos con un 
maximo de 127 peliculas por 
bono. 

— Gestion rapida de la 
entrada-salida de las 
peliculas. 

— Funcionamiento 
mediante menus y submenus, 
no teniendo que recordar 
extranos comandos. 

— Seguridad total de los 
datos ante cortes del fluido 
electrico o desconexiones 
involuntarias del ordenador. 

Una vez que el programa 
ha sido cargado, aparecera 
en la pantalla el menu 
principal que consta de las 
siguientes opciones: 

1. Informacion de socios: 

Mediante la presente 
opcion, no solo es posible 
introducir los datos 
correspondientes a un nuevo 
socio, sino tambien acceder a 
informacion respecto a un 


socio determinado ya 
registrado, asi como 
actualizar sus datos o darle 
de baja. 

Los datos a incluir en el 
fichero de socio, 
habitualmente son: numero, 
nombre, domicilio, telefono, 
sistema de video, tipo de 
socio, observaciones, numero 
de tarjeta y DNI. 

2. Gestion de alquileres: 

La aplicacion esta dirigida 
a facilitar el trabajo diario 
del videoclub. 

Esta operation tan solo 
requiere anotar las entradas 
y salidas de peliculas con sus 
respectivas fechas, bonos y 
funcion semicaja; de tal 
modo que su control resulte 
sencillo y comodo. 

3. Informacion de 
peliculas: 

Solo si el programa es 
comodo de manejo, como es 
el caso de Rpa Video Club, 
es posible obtener una 
informacion completa y 
actualizada sobre las peliculas 
disponibles en el videoclub. 

Para ello se requiere 
introducir los nuevos 
videofilmes, anular una 
pelicula que ya no esta 
disponible en el 
establecimiento y corregir los 
datos de peliculas ya 
introducidas. 

El modo de acceder a tal 
informacion puede realizarse 
desde diversos aspectos de la 
pelicula: numero, nombre, 
sistema, fecha de llegada al 
videoclub, numero de 
alquileres desde que llego, 
ultimos socios que la han 
alquilado, asi como si aun 
esta alquilada y socio que la 
posee en esos momentos. 

4. Fin de gestion: 

Esta opcion en realidad es 
un sistema de seguridad con 
que cuenta la aplicacion y 
evita la perdida de datos 
introducidos en la jornada de 
trabajo en el caso que, 
accidentalmente o por un 
corte en el suministro 
electrico, se desconecte la 
aplicacion. 
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100 KODE 1:BORDER 0=IRK 1,26:IRK 0,0: 
IRK 2.2:IRK 3,6 

110 LOCATE 5,7:PER 1:PRIRT”RECUERDOS 
DE LA ALHAMBRA" 

120 LOCATE 11,9: PRINT’* C Andante >” 

130 LOCATE 6,11:PRINT"F.TARREGA” 

140 LOCATE 2,20:PER 2:PRIRT"PROGRAKAD 
0 POR FERNANDO PAJAS SANZ" 

150 ’LOCATE 2,24:PER 3: PRINT"CORCURSO 
MUSICAL *■ AMSTRAD SEMAKAL'”:PEN 1 
160 T=12:'4* DURACIOR (FUSA) ** 

170 V=13:'4*4 VOLUKEH *44 

180 ERT -1,4,1,1.4.-1,1:El=l:'44 ERVO 

LVENTE (CANAL 1) *44* TONO ** 


190 

ENV 2, 

16,1,20:E2=2: '44 ENVOLVENT 

E (CANAL 2) 44 

200 

ENV 4, 

1,0,143,15.-1,t*2:E4=4:'44 

ENVOLVENTE 

: (CANAL 4) 44 

210 

KEY 11 

."SOUND ":KEY 0."RUN"+CHRS( 

13) 

220 

SOUND 

2, 0.T43,V, E2: GOSUB 1520 

230 

SOUND 

1.190,T412.V.,El 

240 

GOSUB 

1320 

250 

SOUND 

1.213, T46,V. , El:GOSUB 1340 

260 

GOSUB 

1360 

270 

SOUND 

1,239,T412.V, , El 

280 

GOSUB 

1380 

290 

GOSUB 

1520 

300 

GOSUB 

1340 

310 

GOSUB 

1360 

320 

SOUND 

1,213, T46, V. , El 

330 

SOUND 

1. 190.T430, V, , El 

340 

GOSUB 

1320 

350 

SOUND 

1,179,146.v..el 

360 

GOSUB 

1520 

370 

GOSUB 

1320 

380 

GOSUB 

1360 

390 

GOSUB 

1520 

400 

GOSUB 

1320 

410 

SOUND 

2,379 , T43, V E2 

420 

SOUND 

L.159.1412,v,,el 

430 

GOSUB 

1400 

440 

SOUND 

2, 0,14.?, 0 

450 

GOSUB 

1540 

460 

GOSUB 

1420 

470 

SOUND 

1,179,146,v.,el.SOUND 2,31© 

,143,v,e2 


480 

GOSUE 

14"*0 

490 

SOUND 

2. 0,143, 0 

500 

SOUND 

1.190,1412,v,,el 

510 

GOSUE 

1540 

520 

GOSUE 

1440 

530 

SOUND 

1, 179, t*6,v,,el 

540 

GOSUE 

1400 

550 

SOUND 

1.159.1436.v..el 

560 

GOSUE 

1540 

570 

SOUND 

2, 0,1*3, 0 

580 

GOSUE 

1420 

590 

GOSUE 

1420 

600 

SOUND 

2,319.143,v,e2 

610 

GOSUB 

1540 

620 

SOUND 

2, 0,143,0 

630 

GOSUE 

1420 

640 

GOSUB 

1420 

650 

SOUND 

2,319,+43,v,e2 

660 

SOUND 

1,119,1412.v..el 

670 

SOUND 

2,0,143,0 

680 

GOSUE 

1560 

690 

GOSUB 

1460 

700 

GOSUE 

1480 

710 

SOUND 

1,127,t*6,v,,el 

720 

GOSUB 

1500 

730 

SOUND 

1,142,1412,v,,e1 

740 

GOSUE 

1560 

750 

GOSUE 

1580 

760 

SOUND 

1,127,146,v,,el 

770 

GOSUB 

1600 

780 

SOUND 

1,142,146,v,,el 

790 

GOSUB 

1620 


800 GOSUB 1640 

810 SOUND 1,150,t*30,v, , el 


830 SOUND 2,253,t*3,v,e2:SOUND 2,0,t* 
3,0 

840 GOSUB 1620 
850 GOSUB 1660 


860 GOSUB 1660 

670 SOUND 2,213,t*3,v,e2: SOUND 2.0,t* 
3. 0 

880 SOUND 1,134,1*12, v,,el 

890 GOSUB 1520:GOSUB 1700 

900 GOSUB 1680 

910 GOSUB 1660 

920 SOUND 1,142,t*6,v, ,el 

930 SOUND 2,239,t*3,v,e2: SOUND 2,0,t* 

3, 0 

940 SOUND 1,159,t*12, v,,el 

950 SOUND 2.284, t*3,v,e2:SOUND 2.190, 

t*3,v,e2 

960 SOUND 2, 284, 1*3, v,e2: SOUND 1,142, 

t*6,v, .el: SOUND 2.179,t*3,v.e2 

970 SOUND 1, 159. t*6.v,,el:SOUND 2,284 

, t*3,v,e2;SOUND 2,0,t*3,0 

980 SOUND 2,190. t*3.v.e2:SOUND 1.179. 

t*30,v.,el 

990 GOSUB 1720 


1000 GOSUB 
1010 GOSUB 
1020 GOSUE 
1030 SOUND 
1040 SOUND 
1050 GOSUB 
1060 GOSUB 
1070 SOUND 
1080 GOSUB 
1090 SOUND 
v,e2:SOUND 
1100 SOUND 
1110 SOUND 
1120 SOUND 
,+ 43,v,e2 
1130 SOUND 
1140 SOUND 
1150 GOSUB 
1160 GOSUB 
1170 SOUND 
1180 GOSUB 
1190 SOUND 
43, 0 

1200 SOUND 
1210 GOSUB 
1220 SOUND 
1230 GOSUB 
1240 GOSUB 
1250 SOUND 
43, 0 

1260 GOSUB 


1740 

1740 

1720 

2, 0, t*3,0 
2, 284, 1*3. v,e2 
1740 
1740 

1.190,t*12,v,,el 
1720 

2,0,143,0;SOUND 2,284,t*3, 

2.253.t*3.v.e2 

2,284,t*3,v,e2 

1.213.t*6,v,,el 

2,253,1*3,v.e2:SOUND 2,284 

1,239,t*12.v,,el 
2,0, 1*3. 0 
1760 
1780 

1,213,1*6,v,,el 
1760 

2.402, t.*3.v,e2: SOUND 2.0. t. 


1.239,T*6,V.,El 
1800 


1,253,T430, V, ,El 
1620 
1800 

2,379,T43,V.E2:SOUND 


2.0. T 


1620 


1270 GOSUB 1800 

12-50 GOSUB 1800 

1290 SOUND 2,379,T43.V, E2 

1300 CON=CON+l:IF CON=l THEN GOTO 160 


1310 GOTO 1820 

1320 SOUND 2,379, T*3, V, E2: SOUND 2,239 
, T*3, V, E2 


1330 RETURN 

1340 SOUND 2,379, T*o, V,E2:SOUND 2,253 
, T*3. V, E2 
1350 RETURN 


1360 SOUND 2.379,T*3.V,E2:SOUND 2,0,T 
43, V, E2 
1370 RETURN 

1380 SOUND 2,379,T43,V,E2:SOUND 2,284 
. T43. V.E2 
120C SETHS. 1 , 


1400 SOUND 2,213,t*3,v,e2:SOUND 2,319 
,t*3.v,e2 
1410 RETURN 

1420 SOUND 2,319,t*3,v,e2:SOUND 2,190 


,t43.v,e2 
1430 RETURN 

1440 SOUND 2,319,t43,v,e2:SOUND 2,239 
, t43, v. e2:SOUND 2.319,t43. V, e2 
1450 RETURN 

1460 SOUND 2,239,t43,v,e2:SOUND 2,142 
. t*3,v,e2 
1470 RETURN 

1480 SOUND 2 , 239,t43,v,e2 : SOUND 2,159 

f t43,v.e2 

1490 RETURN 

1500 SOUND 2,239,t*3,v.e2:SOUND 2,0,t 
43, 0 

1510 RETURN 

1520 SOUND 4.568.T418, 15, E4 
1530 RETURN 

1540 SOUND 4,478,t418,15,e4 
1550 RETURN 

1560 SOUND 4,356,t416.15.e4 
1570 RETURN 

1580 SOUND 2,239,t43,v,e2:SOUND 2.179 
, t43,v, e2: SOUND 2,239, t*3, v. e2 
1590 RETURN 

1600 SOUND 2, 426 , 143 , v, e2: SOUND 2.179 
. t43 , v,e2:SOUND 2,0.t43,0 
1610 RETURN 

1620 SOUND 4.758.1418,15,64 
1630 RETURN 

1640 SOUND 2,253.t43,v,e2:SOUND 2,190 
,t43, v,e2 
1650 RETURN 

1660 SOUND 2,213, t43, v,e2: SOUND 2,190 
.t43, v,e2 
1670 RETURN 

1680 SOUND 2,225,t43,v,e2:SOUND 2,190 
, t43,v,e2 
1690 RETURN 

1700 SOUND 4.451.1418, 15, e4 
1710 RETURN 

1720 SOUND 4,426,t418,15,e4 
1730 RETURN 

1740 SOUND 2.213, t43.v.e2:SOUND 2,284 
, t43,v,e2 
1750 RETURN 

1760 SOUND 4,716.t*l8,15.e4 
1770 RETURN 

1780 SOUND 2, 402,t*3,v,e2:SOUND 2,284 
,143, v,e2 
1790 RETURN 

1800 SOUND 2,379,T43,V,E2:SOUND 2,301 
, T43 , V,E2 
1810 RETURN 

1820 '444 COMIENZA SEGUNDA PARTE 444' 
1830 V=13:T=12:E1=1;E2=2:E4=4 
1840 SOUND 1,190,T412,V, ,El 
1850 SOUND 2, 0, T43.0:SOUND 2.379.T43. 
V, E2 

1860 GOSUB 1520 

1870 IF SEG=0 THEN SOUND 2,239,T43,V, 
E2 ELSE SOUND 2.225,T43.V,E2 


1880 

SOUND 

2, 379, T43,V,E2 


1890 

SOUND 1.213.T46.V,,El 


1900 

SOUND 

2,253, T43, V,E2:SOUND 

2,379 

,T*3,V.E2 



1910 

SOUND 

1.225.T412,V,,El 


1920 

GOSUB 

1520 


1930 

SOUND 

2, 0.T43, 0: SOUND 2.379.T43, 

1940 

SOUND 

2.284. T43. V,E2:SOUND 

2,379 

. T43, 

V.E2 



1950 

SOUND 

1,213,T46,V,,El 


1960 

SOUND 

2,253,T43,V,E2:SOUND 

2,379 

. T43. 

V, E2 



1970 

SOUND 

1, 190.T436. V, , El 


1980 

GOSUB 

1520 


1990 

SOUND 

2,0,T*3,0 


2000 

GOSUB 

3730 


2010 

GOSUB 

3730 


2020 

GOSUB 

1520 
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2030 SOUND 2,3*79, 6*3,v.e2: SOUND 2,0,t 
*3, 0 

2040 GOSUB 3730 
2050 GOSUB 3730 

2060 SOUND 2,379,t*3,v,e2:SOUND 2,0,t 
*3.0 

2070 SOUND 1,169. t-*15, v, ,el 
2080 GOSUB 1520 
2090 GOSUB 3750 
2100 GOSUB 3750 

2110 ENT -5,1.0,t*2,10,-6,1,1,-3,t*10 
2120 ENV 12,3,-1,t*15 
2130 SOUND 1,169,t*15,v-2,12,5 
2140 GOSUB 1520 

2150 ENT 7.1.0.t*5.10,-12,1,1,-5.T*10 

2160 SOUND 2,338.t*9,v.12,7 

2170 SOUND 2,127,6*3, v, e2: SOUND 2,213 


,t*3,v,e2 
2180 SOUND 
2190 SOUND 
,t*3,v,e2 
2200 GOSUB 
2210 SOUND 
2220 SOUND 
2230 SOUND 
2240 GOSUB 
2250 GOSUB 
2260 SOUND 
v, e2 


1,169.t*12,v,.el 

2.213, t*3,v,e2:SOUND 2,338 

1520 

2,0,t*3,0 

2.213, t*3,v,e2 

1,190,t*30,v,,el 

3770 

3770 

2,0, 6*3, 0: SOUND 2,379,t*3. 


2270 GOSUB 1520 

2280 GOSUB 3770 

2290 GOSUB 3770 

2300 6=12;v=13:el-1:E2=2: E4=4 

2310 SOUND 2,0,t*3,0 

2320 SOUND 1,142,6*18,v,,el 

2330 GOSUB 3790 

2340 GOSUB 3810 

2350 GOSUB 3830 

2360 SOUND 1,150,t*12,v, ,el 

2370 GOSUB 3850 

2380 SOUND 2,301,t*3,v,e2 


2390 SOUND 1,201,6*6,v, , el 
2400 GOSUB 3870 

2410 SOUND 2,239, t*3,v,e2:SOUND 2,301 

,T*3.V.E2:SOUND 2,0.T*3.0 

2420 SOUND 1, 169. T*6. V. . El 

2430 GOSUB 3890 

2440 SOUND 1,190,T*30,V, ,El 

2450 GOSUB 3910 

2460 GOSUB 3910 

2470 GOSUB 3930 

2480 GOSUB 3890 

2490 GOSUB 3910 

2500 GOSUB 3910 

2510 GOSUB 3930 

2520 SOUND 1,213,T*18,V,,El 

2530 GOSUB 3950 

2540 SOUND 2, 358.T*3-1, 15,E2:SOUND 2, 
0,2,0:SOUND 2,358,T*3-l,15,E2:SOUND 2 
, 426, T*3, 15, E2 


8,T*3,15,E2:SOUND 2.0.T*3,0 
2560 SOUND 1,225,T*12.V,,El 
2570 SOUND 4,758,T*12,15,E4 
2580 SOUND 2,379,T*3-1,15.E2:SOUND 2. 
0,2,0:SOUND 2.379,T*3-l,15,E2: SOUND 2 
,0,2,0: SOUND 2. 379, T*3, 15, E2 
2590 SOUND 2,0,T*3,0 
2600 SOUND 1,253,T*6,V,.El 
2610 SOUND 2,426, T*3,15,E2 
2620 SOUND 4,758,T*6,15,E4 
2630 '*** AQUI EKPIEZA LA PARTE ]? ** 
* 

2640 IF SEG=1 THEN GOTO 2750 
2650 SOUND 1,284,T*30,V, ,El 
2660 SOUND 4,568,t*18,15,e4 
2670 SOUND 2,0,T*3,0 

2680 SOUND 2,379,T*3-l,15,E2:SOUND 2. 
0.2,0:SOUND 2,379,T*3-l.15.E2:SOUND 2 
,0,2, 0: SOUND 2, 379, T*3, 15, E2 
2690 SOUND 2,338, T*3. 15. E2:SOUND 2,30 
1,T*3,15,E2:SOUND 2,0, T*3,0 
2700 SOUND 4,568,t*18,15,e4 
2710 SOUND 2,379.T*3, 15, E2:SOUND 2.45 
1,T*3, 15, E2:SOUND 2,379,T*3,15,V2 
2720 SOUND 1.225,T*3,V,,El:SOUND 2,28 
4, T*3, 15, E2 

2730 SOUND 1,213,T*3,V,,El:SOUND 2.25 
3, T*3,15, E2 

2740 SEG=SEG+1: IF SEG=1 THEN GOTO 183 
0 

2750 t=12:v=13:el=l:E2=2:E4=4:'*** AQ 
UI EKPEZARA LA FARTE + *** 

2760 SOUND 1,284,T*54,V,,El 
2770 SOUND 4.568,t*18,15,e4 
2780 SOUND 2,0,T*3,0 


2790 SOUND 2.379,T*3-1.15.E2:SOUND 2. 
0,2,0:SOUND 2,379,T*3-l,15,E2:SOUND 2 
.0,2,0:SOUND 2,379,T*3-l,15,E2 
2800 SOUND 4,568,6*18,15.e4 
2810 SOUND 2,338,T*3,15,E2:SOUND 2,30 

1, T*3, 15, E2:SOUND 2,0,T*3.0 

2820 SOUND 2,379,T*3-l.15,E2:SOUND 2, 
0,2,0:SOUND 2,379,T*3-l,15,E2:SOUND 2 
,0,2,0:SOUND 2,379,T*3- 1.15,E2 
2830 SOUND 2,0,2, 0: SOUND 2,379,T*3-1, 
15,E2: SOUND 2,0,2,0:SOUND 2.379.T*3-1 
,15,E2;SOUND 2,0,t*3,0 
2840 SOUND 4,568,6*18,15,e4 
2850 SOUND 2,358,t*3 -1,15,e2:SOUND 2, 
0,2.0:SOUND 2.358,6*3-1,15.e2:SOUND 2 
,0,2,0:SOUND 2,358,t*3-1,15,e2:SOUND 

2, 0. 2, 0: SOUND 2, 358, 6*3 1. 15, e2: SOUND 
2,0,2,0:SOUND 2,358,6*3-1,15,e2 

2860 SOUND 1.253.T*6,V,,Ei 

2870 SOUND 4,568,T*18,V,E4 

2880 SOUND 2,0,t*3.0 

2890 GOSUB 3990 

2900 SOUND 1,239,T*6,V,,El 

2910 GOSUB 3990 

2920 SOUND 1.213,T*6,V,,El 

2930 SOUND 2,358,T*3,15, E2:SOUND 2,0, 

T*3,0 

2940 SOUND 1.190,T*58.V,,El 
2950 SOUND 4,568,T*18,15,E4 
2960 GOSUB 3970 
2970 GOSUB 3970 

2980 SOUND 2,379.T*3, 15, E2:SOUND 2,0, 
T*3, 0 

2990 SOUND 4.568,T*16,15.E4 
3000 GOSUB 3970 
3010 GOSUB 3970 


302C SOUND 2 279 T*3 15 E2:SOUND 2 C 
T*3,0 

3030 SOUND 4,758.T*21,15,E4 

3040 SOUND 2,301,T*3-1,15,E2:SOUND 2, 

0,2,0: SOUND 2.301,T*3-l,15,E2:SOUND 2 

,0,2,0:SOUND 2,301.T*3-l.15,E2 

3050 SOUND 2,0,2,0:SOUND 2,301,T*3-1, 

15.E2:SOUND 2,0.2,0:SOUND 2,301,T*6-l 

, 15, E2 

3060 SOUND 2,0,T*3,0 

3070 SOUND 1,213,T*6,V,,El 

3080 SOUND 4,758,T*12,15,E4 

3090 SOUND 2,338,T*3,V,E2 

3100 SOUND 1,225,T*6.V, ,El 

3110 SOUND 2,379,T*3-l,15,E2:SOUND 1, 

253,T*6,V,,El:SOUND 2,0,2,0:SOUND 2,3 

79,T*3-1,15,E2: SOUND 2,0,T*3,0 

3120 SOUND 4,758,T*6,15,E4 

3130 SOUND 2,426.T*3,15,E2:SOUND 2,0, 

T*3,0 

3140 SOUND 1,284,T*54,V,.El 

3150 SOUND 4,568,T*18,15,E4 

3160 SOUND 2,379,T*3-l, 15, E2:SOUND 2, 

0,2,0: SOUND 2.379, T*3~l. 15,E2 

3170 SOUND 2,358,T*3, 15,E2:SOUND 2.33 

8,T*3,15.E2:SOUND 2.358.T*3,15,E2:SOU 

ND 2,0,T*3,0 

3180 SOUND 4,568,T*18,15,E4 
3190 SOUND 2,379,T*3-1,15,E2:SOUND 2. 
0,2,0:SOUND 2,379, T*3-l,15,E2:SOUND 2 
.0,2,0: SOUND 2,379,T*3-l,15.E2:SOUND 


2,0,2,0:SOUND 2 , 379,T*3-1,15,E2 

3200 SOUND 2,0,2. 0: SOUND 2,379,T*3-1, 

15,E2:SOUND 2,0,T*3,0 

3210 SOUND 4, 568, T*18,15,E4 

3220 SOUND 2,358,T*3-l,15,E2:SOUND 2. 

0,2,0:SOUND 2,358,T*3-l.15,E2:SOUND 2 

.0,2,0: SOUND 2. 358, T*3-l.15,E2:SOUND 

2,0,2,0: SOUND 2,358.T*3-l.15.E2 

3230 SOUND 2, 0,2,0:SOUND 2,358,T*3-1, 

15,E2:SOUND 2,0,T*3,0 

3240 SOUND 1,253,t*6,v,,el 

3250 SOUND 4,568,T*18,15.E4 

3260 SOUND 2,358,6*3,15,62 

3270 SOUND 1 , 239.t*6,v,.el 

3280 SOUND 2,284,t*3,15,e2 

3290 SOUND 2, 358,t*3,15.e2 

3300 SOUND 1,213,6*6,v,.el 

3310 SOUND 2,284,t*3,15,e2 

3320 SOUND 2 , 358 . t*3 . 15 , e2 ; SOUND 2.0, 

6*3, 0 

3330 SOUND 1 , 190,6*36,v, , el 
3340 SOUND 4.568,T*16,15,E4 
3350 GOSUB 3970 
3360 GOSUB 3970 

3370 SOUND 2.379,6*3,15,e2:SOUND 2.0, 


6*3, 0 

3380 SOUND 4,566,T*18,15.E4 
3390 GOSUB 3970 
3400 GOSUB 3970 


3410 SOUND 
6*3, 0 

3420 SOUND 
3430 SOUND 
3440 SOUND 


2,379.6*3,15,e2:SOUND 2 

1,150.6*18.v, . el 
4,758.t*18,15,e4 
2,379;6*3.15,e2:SOUND 2,19 


0, 6*3, 15, e2 

3450 SOUND 2,379,6*3,15,e2:SOUND 2,19 


0, t*3,15.e2 

3460 SOUND 2.379,t*3.15,e2:SOUND 2,0, 


6*3,0 

3470 SOUND 1.169.6*6,v,,el 
3480 SOUND 4,758.6*18,15,e4 

3500 SOUND 1 , 190.6*6,v,,el 

3510 SOUND 2,379,6*3.15,e2 

3520 SOUND 1,213,6*6,v,,el 

3530 SOUND 2,253,6*3,15,e2:SOUND 2,37 

9,6*3.15.e2:SOUND 2,0,6*3,0 

3540 SOUND 1,225,6*54,v.,el 

3550 SOUND 4,568,6*18.15,e4 

3560 SOUND 2.379,6*3,15, e2:SOUND 2,28 

4,6*3,15.e2:SOUND 2,379,6*3.15.e2 

3570 SOUND 2,338, t*3,15, e2:SOUND 2,28 

4,6*3,15,e2 

3580 SOUND 4,568,6*9,15,e4:SOUND 2,0, 
6*3,0 

3590 SOUND 2,379, 6*3,15,e2:SOUND 2,28 
4,6*3.15,e2:SOUND 4,758,6*9,15,e4:SOU 
ND 2,0,t*3,0 

3600 SOUND 2,478,6*3, 15,e2:SOUND 2.45 
1,6*3,15.e2 

3610 gob=gob+l:IF gab=l THEN GOTO 358 

0 

3620 6=12:v=13:el=l 

3630 ENV 6,1,0.6*2.5.15,-1,6*3 

3640 SOUND 7,568.t*6. v,8.el:SOUND 7,3 

79.t*6,v,8.el:SOUND 7,284,6*6.v,8,e1 

3650 SOUND 7,225,6*6,v,8,el:SOUND 7, 1 

90,6*6, v,8,el:SOUND 7 , 142,6*12.v.8,el 

3660 SOUND 1,95,6*34,15,8,el 

3670 SOUND 2,225,6*34,15,8,el 

3680 SOUND 4.568.6*34,15,8,el 

3690 SOUND 1,284,6*34,15,8,el 

3700 SOUND 2,451,6*34,15.8.el 

3710 SOUND 4,568,6*34,15,8,el 

3720 GOTO 4010 

3730 SOUND 2,379,T*3,V,E2:SOUND 2,225 
,T*3,V,E2 
3740 RETURN 

3750 SOUND 2.338,6*3.v,e2: SOUND 2,213 


,6*3,v,e2 
3760 RETURN 

3770 SOUND 2,225,t*3,v,e2:SOUND 2,379 
,6*3,v,e2 
3780 RETURN 

3790 SOUND 4,676.6*18,15,e4 
3800 RETURN 

3810 SOUND 2.338,6*3,v,e2:SOUND 2,284 
,6*3.v,e2:SOUND 2,225,6*3,v.e2 
3820 RETURN 

3830 SOUND 2,284, 6*3, v, e2:SOUND 2,336 


,6*3,v,e2:SOUND 2,0.6*3,0 
3840 RETURN 

3850 SOUND 4,602,6*18,15,e4 
3860 RETURN 

3870 SOUND 2,239,6*3,v, e2:SOUND 2,201 
,t*3,v,e2 
3880 RETURN 

3890 SOUND 4. 451,T*18,15,E4 
3900 RETURN 

3910 SOUND 2 , 301, T*3, V, E2:SOUND 2,225 
, T*3, V, E2 
3920 RETURN 

3930 SOUND 2,301.T*3.V,E2:SOUND 2.0.T 
*3. 0 

3940 RETURN 

3950 SOUND 4.506,T*18.15.E4 
3960 RETURN 

3970 SOUND 2,379,T*3,15,E2:SOUND 2,22 
5, T*3, 15, E2 
3980 RETURN 

3990 SOUND 2,358,T*3,15,E2:SOUND 2,28 
4, T*3, 15, E2 

4000 RETURN - 


x ri r\ tot *5 A iB-rnriiTC o r>x ■ cci -i. per 
NT"PULSE ESPAGIO PARA DATOS PERSONALE 
S" 

4020 A$=INKEYS:IF A$<>" " THEN 4020 


4030 PEN 1:MODE 1 

4040 LOCATE 2,4-PRINT”NOKBRE: 

. . . .FERNANDO FAJAS SANZ" 

4060 LOCATE 2. 8: FRINT"POBLACION-. 

.ALCALA DE HENARE-S" 

4070 LOCATE 2,10:FRIFT’FROVINClA- 
. . .MADRID” 

4090 GOTO 4090 
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Hisla section esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S'. A AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
jABSTENERSE PI RAT AS! 


Vendo Amstrad 6128, 
monitor color, con sus manuales 
e instrucciones de utilizacion, 
unidad de disco adicional, 
impresora matricial, cassette y 
joystick. Ademas, 42 discos y 
20 cintas, ambos con juegos y 
programas de gestion, asi como 
de utilidades de sistema. 

Ademas originales de Base de 
Datos, Hoja de Calculo, 
Tratamiento de Textos y dBase 
II, todos ellos originales y 
manuales de utilizacion. 
Interesados llamar de lunes a 
viernes, de 21 a 22 horas al tel. 
(93) 339 39 99, y preguntar por 
Ernesto. 

. 


Me urge comprar muchos 
Vic-20 (que funcionen). 
FrancescSota Entenza, 24. 08015 
(Barcelona). Tel.: 


Necesito urgentemente 
ordenador Spectrum 48 K, con 
clable, transformador, e 
interface, ofrezco hasta 10.000 
ptas., interesados llamar a 
Dioni. Tel.: (91) 880 23 53. 
Madrid. Llamar de 2,30 hasta 
4,30 y a partir de las 21 horas. 


Mandame un disco con algun 
juego o utilidad y te lo devuelvo 
grabandote en el los siguientes 


Mercado 

CCMJN 


tltulos: Viernes 13, 

Masterchess, Aguilas del 
espacio, Plaga Galactica. Oh 
mummy, Tron. Panic. 
Comecocos, Invaders, Space, 
Hoja de Calculo (Mastercalc)... 
Si me mandas alguna cinta con 
un juego te puedo grabar en 
ellas: Army Moves, Game 
Over, Exploding Fist, Tres 
Semanas en el Paraiso. Dime lo 
que no quieres que te grabe. 
Tambien cambio las cintas 2 y 
del 12 al 17 de la Serie Oro, y 
la 3 y 7 de Your Computer, 
todas por un par de juegos 
cinta/disco o alguna utilidad. 
Javier Fernandez Alvarez. Perez 
Ayuso, 19. Tel. 415 58 45. 28002 
Madrid. 

















Vendo 32 discos para el 6128 
(por cambio de ordenador), con 
los mejores programas del 
mercado: Devpac, Oddjob, 
dBase II, Tasword. Tasprint, 
Tascopy, Tasspell, Discology, 
Placon, MS Cobol, MBasic, 
CBasic, Pascal MT, Multiplan, 
Dr. Graph, Dr. Draw, Art 
Studio, Contabilidad General, 
etc., y mas de 40 juegos. Todo 
por 35.000 ptas. o por 
separado. Llamar por las tardes 
al tel. (988) 74 66 48. Palencia. 
Preguntar por Cesar. 


Cambio, compro y vendo. 
Juegos de ordenador, como 
1942, Ikari, Kung Fu Master, 
Commando, Chiller, etc., poseo 
unos 100 juegos, tambien 
cambio copiones. Tel. (93) 

379 43 81. (Barcelona). 

Preguntar por Adolfo, contestare 
a todos. 


Vendo Amstrad CPC 6128, 
fbsforo verde, con cable para 
conexion de cassette, 
compiladores Pascal (Hisoft y 
Turbo), nueve discos vtrgenes, 
numerosas utilidades y trucos 
(tanto cinta como disco), mas 
de 100 revistas y suscripciones 
en AMSTRAD Semanal. 
Interesados escribir a 
Leonardo Janer Garda. Ruts y 
Taulet, 47, 5.°, l. a . Badalona 


Deseamos contactar con 
usuarios de Amstrad CPC 
6128, para el intercambio de 
juegos y sobre todo utilidades 
en disco. jAbstenerse en cinta! 
Poseemos mas de 400 
programas entre ellos las 
ultimas novedades. Se promete 
contestar a todos con rapidez y, 
por favor, mandar lista. 

Escribir a Jose Bollo Delgado. 
Pacheco, 24, 3.°. Salt. 17190 
(Gerona). Teh: (972) 23 40 46. 
Tambien a Xavier Parramon 
Porcell. Angel Guimera, 95, 4.°, 


l.°. Salt. 17190 (Gerona). Tel.: 
23 42 06. j El club espera todas 
vuestras cartas! 


Ha nacido Soft Friends, tu 

club de soft. Para ordenadores 
Amstrad CPC 464. Spectrum, 
Commodore 64 y MSX. Para 
informacion manda nombre, 
direccion y dos sellos de 10 
ptas. (para gastos de envio) a 
Soft Friends (Amstrad). Avda. 
Gastciz 17, 3.° C. Vitoria. 
01008 (Alava). Intercambiamos 
ideas y programas, ademas de 
un folletin informativo mensual 


Vendo y cambio juegos para 
Amstrad 464, 664, 6128, todos 
en cinta. Poseo gran variedac! 
de novedades como Game 
Over, Shockmay Rider, Billy 
Barriobajero, etc., interesados 
enviad lista a Julio Ramos 
Rodriguez. Plaza Primo de 
Rivera. 1, 4.°. 12. 33001 
Oviedo. 


i 




Todoslos sabados, de 5 a 7 
de latarde, en “Sabado Chip”. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Critica 

constructiva 

Antes de disfrutar con un 
PCW 8512, yo era asiduo al 
ZX Spectrum, y lo sigo 
siendo para los juegos. De 
hecho, aprendl a programar 
en Basic y CM tecleando los 
programas que la revista 
Microhobby Spectrum incluia 
en sus paginas. Creo que 
deberiais publicar tambien 
programas de juegos para el 
PCW, pues es la manera 
mas facil y comoda de 
empezar a conocer el 
ordenador. En el niimero 71 
de la revista afirmais que los 
PCW son poco menos que 
un desastre para esta 
iuncion. Es evidente que este 
ordenador no es para jugar, 
pero estoy en completo 
desacuerdo. Sin ir mas lejos, 
tengo un fascinante juego de 
ajedrez en 3D que asf lo 
prueba. Poco a poco se van 
anunciando juegos para los 
PCW (Troglo, Bridge, 

Me gustarla, y no solo a ml, 
que los probarais. 

Ignacio Amador 

Agradecemos a nuestro amigo 
Ignacio las sugerencias e ideas que 
nos hace llegar en su carta. La 
pubhcamos en esta seccion, 
aunque no se trata especijicamente 
de una consulta, para recordar a 
todo el mundo que «Sin Duda 
Alguna» es, debe ser, un vehiculo 
de comunicacion entre la revista y 
los lectores, asi como entre los 
lectores mismos. For ello, 
animamos a todos a que sigan el 
ejemplo de Ignacio y nos hagan 
llegar todo tipo de comentanos que 
consideren utiles. 

Ignacio el PCW se diseho como 
un procesador de textos, ni 
siquiera como maquina de gestion, 
m de juegos, m de nada, y, salvo 
excepciones como la tuya o la de 
otros lectores, la gran mayoria de 
sus usuanos se supone que lo 
quieren para ese tipo de 
actundades. For eso, las casas de 
software no se han puesto a 



Sin duda 

ALGUHA 


producir juegos en gran escala 
para el. Algo hay, pero mucho 
menos en cantidad y muchas veces 
en calidad que para los CPC o el 
Spectrum. En cualquier caso, 
recogemos el guante de eso de 
probar en detalle juegos para 
PCW. Pronto podras verlo para 
creerlo. Una vez mas, gracias por 
tu carta. __ 

li t il l dados 
del firmware 

Me ^uMaria me que 
r udieran a las siguientes 
p .guntas, que imagino 
interesan a todos los 
programadores: 

,;Para que sirven las 
rutinas BCD4 y BC44 del 
firmware? 

I Se puede reducir un 
programa escrito en Basic a 
Codigo Maquina? 

,:Existe alguna rutina en el 
Firmware equivalente a List? 

,;La Ram destinada a la 
pantalla puede usarse para 
hacer graficos? 

Roberto Laguna 

1. La rutina BCD4 busca en 
todas las mernorias ROMs que 
esten activadas en ese mornento 
una rutina que corresponda al 
nombre del comando RSX que se 
le suministra como parametro. 

Las condicion.es de entrada son 
las siguientes: 

HL: direccion de la mernona 


donde se encuentra el nombre del 
comando a buscar. 

Condiciones de salida: 

Si se ha encontrado, el carry 
esta a uno. 

El registro C contiene el 
numero de ROM donde se 
encuentra la rutina. 

El registro HL contiene la 
direccion donde dicha rutina 
comienza, para poder decirle a la 
maquina algo parecido a JP 
(HL). 

En cuanto a BC44, su mision 
es rellenar un area rectangular de 
la pantalla con una tinta 
determinada, parecido a la orden 
Basic FILL. 

Las condiciones de entrada son 

A: mascara conespondiente a 
la tinta de relleno. 

H: columna izquierda del 
rectdngulo. 

D: columna derecha. 

L: linea superior. 

E: linea inferior. 

2. Solo con un compilador. 
Lamentablemente no existe tal 
cosa para el Basic de los 
Amstrad. Tendria que usar los 
cornpiladores que corren bajo 
CP/M de Mbasic o Cbasic, 
mnguno de los cuales son 
cornpletamente compatibles con el 
Locomotive Basic. 

3. Que nosotros sepamo ■ no. 

No. Tenga en cuenta que el 

contenido de esa Ram es lo cue se 
ve en la pantalla. Si mete algo 
alii, se hard inmediatamente 
visible, y se borrara cuando la 
pantalla lo kaga. 


NECESITAMOS personas 

que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Maquina. 

Si usted es uno de ellos pongase en 
contacto con nosotros rapidamente 
en la direccion que se indica a 
continuacion, poniendo en lugar muy 
visible del sobre. 

Referenda 
Codigo Maquina 
AMSTRAD Semanal 

Nuestra direccion es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. 
Fuencarral. 28049 Madrid. 
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Siente el placer de la aventura y 
disfruta la pasion del vertigo, con lo 
ultimo de ACTIVISION, 
jENDURO RACER, todo un bombazo! 


SWEEVO S WORLD II. De Hydrofooi. 
U.S. GOLD presents CORRECAMINOS 
y BOUNCE ataca de nuevo con 
THING’BOONCES BACK. 






















Por Juan Carlos Plaza 


El segundo banco de memoria del 6128 es posiblemente el gran olvidado 
por usuarios y programadores. El dificil manejo de estas 64 K extras, 
asusta e intimida al programador que no se encuentre muy familiarizado 
con las tecmcas de paginacion de memoria, solo accesibles desde 
Codigo Maquina. 

Nosotros, por nuestra parte, ofrecemos hoy una utilidad que no dudamos 
es altamente sugerente para usuarios y programadores: un buffer de impresora 
que aumentara la velocidad de impresion hasta ocho veces. 

L a rutina que presentamos en esta largas esperas entre los listados. i 

ocasion es capaz de hacer trabajar a la vez Cuando se utiliza la impresora para listados, < 

la impresora y el ordenador sin necesidad de resultados o textos, el ordenador siempre se 


PROGRAMA CARGADOR 


10 REM it ANSTRAD SEMINAL it 
20 MODE 2:PRINT **** BUFFER-64 1-8 
7 mtr 

30 PR INI;PRINT:PRINT : PRINT" !BUFF,5s 
% :La variable 'el' da el numero de 
carat teres en el buffer (»ax 64 k) 

w 

40 ?RINT:?RINT"IDES :Fara desactiva 
r la rutina " 

50 PRINT:PRINT"1 ACT :Para activarla 
nuevauente " 

60 PRINT:PRINT"!RES :Para resetear 
la rutina." 

70 RRIN!:PRINT*!INB :Para rginicial 
izar la rutina." 

80 h=&AOOO:MEMORY h-1 
90 FOR 1=1 TO 69: F GR j=l TO 10:READ 
s$:c=VAL("& H +a$):5=s+c:POKE h+k.c: 
k=k+l:NEXT:READ sco 
100 IF scoOs THEN p RINT"ERROR en 1 
ineal";itlO+liOlSTOP 
110 5=0:NEXT:POKE h+k,0:END 
120 DATA 00,13,80,38,38,01,21,63,00 
,09, 862 

130 DATA 7E,23,SE,23,S6,23,ES,EB,09 
,E5, 1113 

140 DATA SE,23,56,EB,03,EB,El,73,23 


.72, 1183 

150 DATA El,30,20,EA,21,34.00,09,7E 
,47, 843 

160 DATA 23,7E,CD,5A,BB,10,F9,3E,C9 
,32, 1221 

170 DATA 00,00,03,OA,00,2E,OD,OA,OA 
,20, 524 

180 DATA 20,20,20,20,20,20,20,20,20 
,2ft, 330 

190 DATA 2A,20,42,55,46,46,45,52,2D 
,36, 615 

200 DATA 34,|0,2E,38,37,20,2A,2A,20 
,20, 421 

210 DATA 20,20,20,20,20,20,20,20,20 
,00, 301 

220 DATA 0A,Oft,3B,32,00,2F,00,DE,00 
,66, 628 

230 DATA 00,FI,00,F4,00,F9,00,01,01 
,04, 740 

240 DATA 01,07,01,0A,01,00,01,2F,01 
,3F, 145 

250 DATA 01,42,01,4A,01,4D,01,50,01 
,56, 388 

260 DATA 01,86,01,SC,01,8F,01,95,01 
,A6, 737 

270 DATA 01,81,01,88,01,88,01,BF,01 
,D3, 955 


280 DATA 01,06,01,DA,01,06,02,00,02 
1A, 484 

290 DATA 02,ID,02,20,02,24,02,28,02 
,39, 210 

300 DATA 02,46.02,49,02,40,02,4F,02 
,54, 392 

310 DATA 02,63,02,79,02,34,02,36,01 
,63, 434 

320 DATA 01,68,01,77,01,99,01,90,01 
,03, 741 

330 DATA 01,ES,01,FD,01,15,02,76,02 
,FE, 882 

340 DATA 00,21,28,BD,11,AS,02,01,06 
,00, 460 

350 DATA ED,BG,21,3A,01,22,20,ED,3E 
,03, 1023 

360 DATA 32,28,ED,01,FE,00,21,20,01 
,3E, 665 


,0 

50 


370 DATA 09,32,F0,00,03,Dl,80,OF,01 ,1 
,03, 1234 51 
380 DATA 24,01,03,62,01,03,A3,01,03 ,4 
,76, 1003 55 
390 DATA 01,03,35,01,42,55,46,06,41 C 
,43, 801 S3 
400 DATA 04 , 44 , 45 , D3,52,45, 03, 43,4E B 
,02, 1267 c 4 
410 DATA 00,00,00,00,00, FE, 01,00,DD ,3 
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bloquea durante un tiempo que depende de la 
longitud de los datos a enviar. En los listados un 
poco largos, el tiempo de espera puede llegar a 
ser «eterno». Para que este tiempo se reduzca 
considerablemente, hemos creado la siguiente 
rutina. De esta forma no hay que esperar a que 
se acabe un listado para poder seguir trabajando 
con el ordenador en otra tarea. 

Dicha rutina crea un buffer que se encarga de 
manejar la salida del ordenador hacia la 
impresora, reduciendo el tiempo de espera y 
pudiendo contener hasta 65.537 caracteres en el 
segundo banco de 64 K del CPC 6128. 

La espera depende del numero de caracteres 
que mandemos a la impresora. Asi, por ejemplo, 
un listado de 25 K tarda tan solo 33 segundos en 
darnos el Ready, mientras que si no existiese el 
buffer y con una impresora de 100 cps, el tiempo 
serfa superior a los 4 minutos. Esta gran 
diferencia hace que la utilization del buffer sea 
muy interesante. 

El programa es compatible con cualquier 
impresora y se pueden utilizar tantos programas 
escritos en Basic como algunos escritos en 
binario, por ejemplo Amsword, Gena-Mona, 
Tascopy, Masterfile, Mastercalc, etc. 

El manejo es muy sencillo y se reduce a 
utilizar normalmente los comandos Basic 
destinados a la impresora como pueden ser List 
#8, Print #8, Write #8, Width, etc., o bien las 
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,6E, 778 

420 DA^A 00,00,68,01,ED,SB,AS,02,73 
,23, 363 

430 DATA 72,03,00.81,01,18,A8.E5,05 
,05, 1484 

440 DATA F5,21,F5,01,11,FC,01,08,81 
,00, 1134 

450 DATA EF,80,00,6A,01,3A,A7,02,32 
,AF, 1131 

460 DATA 02,CO,SB,SB,21,AD,01,22,20 
,SD, 361 

470 DATA FI,01,21,00,40,18,6F,21,AF 
,02, 876 

480 DATA 7E,FE,03,00,34,21,EF,01,1! 
,32, 967 

490 DATA 00,01,01.00.03,E3,80,21.A9 
,02, 822 

500 DATA 11,2B,B0,01,03,00,ED,B0,F3 
,21, 342 

510 DATA 00,00,22,AS,02,21,00,40,22 
,A3, 435 

520 DATA 02,22,Al,02,21,04,04,22,A7 
,02, 443 

530 DATA AF,32,AFi02,21,EF,01,CD,EC 
,BC, 1304 

540 DATA FE:,C9,3E,04,2A,AF,02,8D,00 
,3D, 1173 


550 DATA 18,EB,ES,05,F5,2A,Al,02,23 
,70, 1310 

560 DATA FE, 80,3A., A7,02, CC, 66,02, EB 
,2A, 1134 

570 DATA A3,02,F5,B7,ED,52,28,ID,FI 
,32, 1272 

580 DATA A7,02,CD,SB,BD,F3,F!,EB,77 
,22, 1526 

530 DATA Al,02,2A,AS,02,23,22,AS,02 
,AF, 783 

600 DATA CD,58,8D.37,01,E1,C3,2A,A7 
,02, 1386 

610 DATA FI,BC,20,DO,FI.87,18,52,00 
,00, 1372 

620 DATA 00,00,00,00,00,00,00,00,00 
,00, 0 

630 DATA 00,CD,AC,02,3E,05,32,BF,88 
,08, 1087 

640 DATA 3A,A8,02,CD,5B,8D,FS,2A,A3 
,02, 1155 

650 DATA 7E,FE,FF,28,22,CD,A9,02,30 
,58, 1221 

660 DATA CD,5E,02,CD,75,02,2A,AS,02 
,28, 877 

670 DATA 22,A5,02,F1,CD,5B,BD,7C,B5 
,C0, 1424 


580 DATA 21,3A,01,22,20,80,03,88,01 
,E5, 320 

630 DATA FS,CD,SE,02, r 5.CC,SB,SD,7E 
,FE, 1656 

700 DATA FE,20,15,F1,32,AS.02,CD,5E 
,02, 1069 

710 DATA CO,75,02,CD,7C,02,FI,El,2A 
, AS, 1328 

720 DATA 02,2B,i8,C9,FI,FI,£1,18,86 
,23, 1218 

730 DATA 7C,FE,SO,3fi,A8,02,CO,30,FE 
,08, 1248 

740 DATA 20,02,3E,04,21,00,40,CS,Fi 
,03, 834 

750 DATA SB,BD,32,AS,02,22,A3,02,C3 
,CS, 1097 

760 DATA 01,10,7F,ED,49,3E,SB,ED,79 
,3C, 1025 

770 DATA ED,79,3E,17,CD,IE,BB,28,ED 
,21, 1175 

780 DATA 86,B6,36,15,23,AF,77,23,36 
,01, 810 

790 DATA 23,77,23,77,Cl,C5,00,40.00 
,40, 830 

800 DATA 00,00,04,04,CF,IB,88,CF,58 
,88, 809 
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opciones de los distintos programas referidas a la 
impresora. 

A1 utilizar alguna de estas ordenes o los 
programas que usen la impresora, los datos que 
se envian a esta se van almacenando en el buffer 
a razon de unos 800 a 1.000 cps. A su vez, la 
rutina los manda a la impresora, cuando esta 
admita mas datos, comprobando siempre que esta 
en linea. De esta forma no se pierde ningun 
dato. El buffer se seguira vaciando hasta haberlos 
mandado todos. En cualquier momenta podemos 
enviar mas caracteres al buffer, con la sola 
limitacion de llenarlo, algo bastante diffcil, si 
tenemos en cuenta que son 64 K. 

Ademas, incluye una secuencia de control para 
detener la impresora cuando detecte los caracteres 
&FF y &FE, como si hubieramos llegado a un 
final de pagina. La forma de conseguirlo es 



LISTADO FNSAMSLADOR 


10 iSUPFER-64 


410 

lD A, (HD 

800 

DEFW S28-CE 

20 ; utliza 64t 

relocalizafcle 

420 

CALL #8B5fi 

810 

DEFW R27-CE 

30 i rupture. de 

pagir.a pc r sFF y EAt 

430 

DJMZ BUC 

820 

DEFW R28-CE 

40 ; 3-2-37 


440 

LD A,ICS 

330 

DEFW R29-CE 

SO ORE 

18000-5 

450 R02: 

LD (#00), A 

840 

DEFW R30-CE 

SO BT 

$ 

460 sot: 

JP RO-CERO 

850 

DEFW R31-CE 

70 CAL;. 

SBCli 

470 TEX: 

DEFB 46,13,10,10 

860 

DEFW R32-CE 

30 CERO: DEC 

SP 

480 

DEP^ " it 8UFFER-64 

870 

DEFW R33-CE 

30 DEC 

SP 


v 2 a 

880 

DEFW R34-CE 

100 

BC 

430 

DEFB 13,10,10 

890 

DEFW R35-CE 

no lD 

HL,INDICE-CERG 

500 INDICE: 

DEFB 53 

900 

DEFW R36-CE 

120 ADD 

PL, SC 

510 

DEFW S01-CE 

310 

DEFW R37-CE 

130 LD 

A (HL 

520 

DEFU R02-CE 

320 

DEFW R38-CE 

140 INC 

HL 

530 

DEFW Rl-CE 

930 

D£Py R3S-CE 

ISO MR! LD 

E. HU 

640 

DEFW NUE-CE 

940 

DEFW R40-CE 

160 INC 

HL 

550 

DEFW RE-CE 

350 

DEFW 841-CE 

1 7 C „Q 

DUE. 

560 

DEFW R2-CE 

960 

DEFW R42-CE 

180 INC 

HL 

570 

DEFW R3-CE 

370 

DEFW R43-CE 

130 #VSN HI 

580 

DEFW R4-CE 

980 

DEFW INB-CE 

LOO EX 

DEAL 

530 

DEFW R5-CE 

390 

DEFW ACT-CE 

210 ADD 

HL, EC 

600 

DEFW R6-CE 

1000 

DEFW ACTIV-CE 

220 ;, USw 

4. 

610 

DEFW P.7-CE 

1010 

DEPW RES-CE 

230 L 5 

E, (HL' 

620 

DEFB R8-CE 

1020 

DEFW 0ES3-CE 

240 INC 

HL 

630 

DEFW R9-CE+1 

1030 

DEFW DESAC-CE 

250 ID 

■Mb!.! 

640 

DEFB RI0-CE 

1040 

DEFW AQIJI-CE 

260 Ex 

DEAL 

650 

DEFW Rll-CE 

1050 

DFPU IGl'-CE 

270 ADD 

HL, BC 

660 

DEFW R12-CE 

1060 

DEFW EVENT-CE 

m n 

DEAL 

670 

DEFW R13-CE 

1070 

DEFW RINP-CE 

230 POP 


680 

DEFW RS4-CE 

1080 

DEFW MOD-CE 

300 LD 

(HLJA 

630 

DEFW R1S-CE 

1090 

DEFW NONTAB-CERD 

310 INC 

HL 

700 

DEFW R16-CE 

1100 


320 LD 

CHL),D 

710 

DEFB R17-CE 

1110 ro: 

LD HL IBD2B 

330 PGP 

HL 

720 

DEFB RIS-CE 

1120 Ri: 

LD DE,IKPR-CER0 

340 DEC 

A 

730 

DEFB R13-CE 

1130 

LD BC,6 

?5C JR 

NZ,ARP 

740 

DEFB R20-CE 

1140 

LDIR 

360 LD 

HL,TEX-CEfiQ 

7 SO 

DEFB R25-CE 

1150 NUE: 

LD HL.EHPI-CE80 

370 ADD 

HL, BC 

760 

DEFW R22-CE 

1160 

LD (IBD20AL 

380 LD 

A,(HL) 

770 

DEFW R23-CE 

1170 

LD A,ICS 

390 .0 

B, A 

780 

DEFB R24-CE 

1180 

LD (IED2B),A 

4oo euc: inc 

HL 

790 

DEFW R2S-CE 

1130 re: 

LD BC,NONTAB-CERD 


i 

* 

i 

i 

1 

* 

» 

i 

1 


1 

1 

1 


ll 

f. 

_ U 

it 

it 

it 

it 

14 
it 

15 
IS 
IS 
15 
IS 
15 
IS 
IS 
15 
IS 
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incluyendo en el programa la siguiente linea: 
PRINT #8,CHR$(&FF)CHR$(&FE); 

Es importante no olvidar el punto y coma 
final. Los dos caracteres &FF y &FE actuan 
como codigos de control para el buffer; es decir, 
no salen en la copia de papel. Cuando la rutina 
encuentra estos dos caracteres cancela 
temporalmente el envfo de datos a la impresora. 
Ademas cambia el color del borde de la pantalla 
(rojo con franjas azules) y espera a que se pulse 
la tecla Control para continuar con la impresion 


1200 R2: 

LD 

HL,TAB-CERO 

1210 

LC 

A ,#09 

1220 R3: 

LD 

(RE-CER0M 

1230 

J P 

#BCD1 

1240 NONTAB: 

DEFW NOfl-CERO 

1250 R4I 

JR 

BUF-CERG 

1260 RS: 

JP 

ACT-CER0 

1270 R6: 

JP 

DES-CERD 

1280 rj: 

JP 

RES-CERG 

1290 R8: 

JP 

INB-CERG 

1300 NGN: 

DEFM 

"BUF" 

1310 

DEFB 

"F"+I80 

1320 

DEFM 

"AC" 

1330 

DEFB 

"T"+#80 

1340 

DEFH 

"DE" 

1350 

DEFB 

"S"+I80 

1360 

DEFM 

"RE" 

1370 

DEFB 

"S*+I80 

1380 

DEFK 

"IN" 

1390 

DEFB 

"B"+#80,0 

1400 TAB: 

DEFB 0,0.>0,0 

1410 BUF: 

CP 

1 

1420 

RET 

NZ 

1430 

LD 

L,(IX+0) 

1440 

LD 

H,(IX+1 ) 

1450 R9: 

LD 

DE,(CUA-CER0) 

1460 

LD 

(HL),E 

1470 

INC 

HL 

1480 

LD 

{HL), D 

1490 

RET 


1500 INB: 

CALL DES2-CERC 

1510 

JR 

HOE 

1520 



1530 EMPI: 

PUSH HL 

1540 

PUSH DE 

1550 

PUSH EC 

1560 

PUSH AF 

1570 R10: 

LD 

HL,BL0CK-CER0 

1580 Rll: 

LD 

DE.EVEHT-CER0 

1590 

LD 

8,129 


1600 

CALL 

IBCEF 

1610 R12: 

CALL 

ACTIV-CER0 

1620 R13: 

LD 

A, (BFIN-CERD) 

1630 R1A: 

LD 

(ACABA-CERG),A 

1640 

CALL 

IEDSB 

1650 R1S: 

LD 

HL.RUT-CER0 

1660 

LD 

<#6020,HL 

1670 

POP 

AF 

1680 

POP 

ec 

1690 

LD 

HL,#4000 

1700 

JR 

INICI 

1710 



1720 ACT: 

LD 

HL,ACABA-CER0 

1730 

LD 

A,(HL) 

1740 

CP 

3. 

1750 

RET 

NZ 

1760 

INC 

(HL) 

1770 ACTIO: 

LD 

HL,CL0CK-CER0 

1780 

LD 

DE, 50 

1790 

LC 

BC, t 

1800 

JP 

SBCE9 

1810 



1820 RES: 

LD 

HL.IHPR-CERG 

1830 

LD 

DE,#B02B 

1840 

LD 

BC, 3 

1850 

LOIR 


1860 DES2: 

01 


1870 

LD 

HI, 0 

1880 file: 

LD 

(CUA-CERO) HL 

1890 DESl: 

LD 

HL,14000 

1900 RI7: 

LD 

: INI-CER0),HL 

1910 R18: 

LD 

CFIN-CER0),HL 

1920 

LD 

HL,#0404 

1930 R19: 

10 

(BFIN-CERD),HL 

1940 

X0R 

A 

1950 BES3: 

LD 

(ACABA-CERO),A 

I960 DESAC: 

LD 

HL,CL0CK-CER0 

1970 

CALL 

IBCEC 

1980 

£] 


1990 

RET 



2000 DES: 

LD 

A,4 

2010 R20: 

LG 

PL (ACABA-CERO 

2026 

CP 

l 

2030 

RE T 

NZ 

2040 

DEC 

A 

2050 

.JR 

DES3 

2060 



2070 



2080 RUT: 

PUSH 

HL 

2090 

pygj-' 

DE 

2100 

Ur 

AF 

2110 821: 

LD 

HL Tn-CERO) 

2120 

INC 

"L 

2130 

LD 

A H 

2140 

CP 

#8; 

2150 R221 

LD 

A.(BFIN-CERD) 

2160 923: 

CALL 

:,ELIJE-CER0 

2170 

EX 

it , HL 

2180 R24; 

LD 

hl,!In:-cerp' 

2190 

PUSH 

AF 

2200 

38 

A 

2210 

SBC 

HUE 

2220 

JR 

Z.ISU 

2230 

POP 

AF 

2240 fiftyI: 

LC 

1BFIS-CER0 1 A 

2250 

CALL 

*84558 

2260 

01 


2270 

PDF' 


2280 

EX 

DE. HL 

2290 INICI: 

LD 

HU, A 

2300 R25: 

LD 

(FIN-CERC),HL 

2310 R26: 

LD 

HL, CCUA-C-ERD) 

2320 

INC 

HL 

2330 R27: 

LD 

(CUA-CERO),HL 

2340 

XDR 

A 

2350 

CALL 

SBD5B 

2360 

SCF 


2370 VUE: 

POP 

DE 

2380 

PDF 

HL 

2390 

RET 



► 
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en el misrno punto donde la habfa dejado. 
Mientras tanto, debemos haber cambiado el 
papel de la impresora y haberla puesta en Knea. 
Cuando la rutina espera que se pulse Control, el 
ordenador no puede ejecutar ninguna otra tarea. 
Por ejemplo si tecleamos el siguiente programa 

10 FOR i= 1 TO 20:PRINT #8, “Ejemplo del 
buffer’’: NEXT 

20 PRINT #8,CHR$(&FF)CHR$(&FE); 

30 J = J + 1 :IF J = 2 THEN END ELSE GOTO 
10 

y lo ejecutamos, teniendo conectada la impresora, 
veremos que, despues de imprimir «Ejemplo del 
buffers 20 veces, el buffer lee los dos codigos de 
control de la linea 20, por lo que la impresora se 
detiene y el color del borde de la pantalla 
cambia. Ahora colocamos el papel, ponemos la 
impresora en linea y pulsamos Control En ese 
momento el borde de la pantalla vuelve a su 


color inicial y seguira imprimiento hasta 
completar otras veinte veces el mensaje del 
ejemplo. 

Para una mayor facilidad en el manejo del 
buffer hemos incluido los siguientes comandos 
RSX: 

• lBUFF,@ r %: La variable r% nos informa 
del numero de caracteres que contiene el buffer. 
Por la forma de tratar el Amstrad los numeros 
enteros, los mayores a 32.767 los considera 
negativos. Asi, la forma correcta de utilizar este 
comando seria: 

r% = 0 :Ibuff,@'%: PRINT 

(r%—65536 x (r% < 0)) 

de esta manera se obtiene un numero positivo 
entre 0 y 65.536. 

• IDES: Cancela el envio de datos a la 
impresora. Los que ya contiene el buffer se 


240C 



2410 I6U*. 

10 

HLdBFIN-CESO) 

2420 

FOP 

AF 

2430 

CP 

H 

2440 

JR 

N2.AQUI 

2450 

POP 

AF 

2460 

OP 

A 

2470 

JR 

VUE 

2480 



2490 CLOCK: 

DEFS 

6 

2500 BLOCK: 

DEFS 

7 

2510 EVENT: 

CALL 

ESIMP-CESC 

2520 

LD 

A,4 

2530 

LD 

(#B8BF),S 

2540 

RET 

C 

2550 F2S: 

L0 

A.CBIIII-CERD) 

2560 

CALL 

seoss 

2570 

PUSH 

AF 

2580 R2S: 

LD 

HL,(INI-CERC) 

2590 

LD 

A,(HL) 

2600 

CP 

#FF 

2610 

JR 

2, CPA 

2620 op: 

CALL 

IMPR-CER0 

2630 

JR 

NC.IH0C 

2640 R30: 

CALL 

PRUE-CER0 

2650 R3l: 

CALL 

MOD—CER0 

2660 832: 

LD 

HL.(CUA-CERO) 

2670 tnffM: 

DEC 

HL 

2680 R33: 

LD 

(CUA-CERO),HL 

2690 

POP 

AF 

2700 

CALL 

#8D5B 

2710 

LD 

A,H 

2720 

OR 

L 

2730 

RET 

N2 

2740 534: 

L0 

HL,EMPI-CER0 

2750 

LD 

:IBD2C),HL 

2760 R43: 

JP 

DES1-CER0 

2770 



2780 CPA: 

PUSH 

HL 


2790 

PUSH AF 

2800 R3S; 

CALL PRUE-CERQ 

2810 

PUSH AF 

2820 

CALL #8058 

2830 

LD 

A. (Hi.) 

2840 

CP 

#FE 

2850 

JR 

NZ,N0SE 

2860 

POP 

AF 

2870 R36: 

L0 

(BIM-CER0M 

2880 R37: 

CALL PRUE-CERQ 

2890 R38: 

CALL M0D-CER0 

2900 R39: 

CALL USUA-CER0 

2910 

POP 

AF 

2920 

POP 

HL 

2930 R40: 

LD 

HL,(CUA-CERO) 

2940 

DEC 

HL 

2950 

JR 

GIRO 

2960 NOSE: 

POP 

AF 

2970 

POP 

AF 

2980 

POP 

HL 

2990 

JR 

RUMP 

3000 



3010 PRUE: 

INC 

HL 

3020 

LD 

A,H 

2030 

CP 

#80 

3040 R41: 

L0 

A,CETNI-CERD5 

3050 

RET 

NZ 

3060 



3070 ELITE: 

INC 

A 

3080 

CP 

8 

3090 

JR 

NZ,ALLI 

3100 

LD 

A,4 

3110 ALLI: 

LD 

HL,#4000 

3120 

RET 


3130 



3140 imoc: 

POP 

AF 

3150 

JP 

IBDSB 

3160 



3170 MOD: 

LD 

(8INI-CERQ),A 


3180 R42: 

LD 

(INI-CERD) HL 

3190 

RE T 


3200 

3210 usua; 

PUSH 

BC 

3220 ARRIS: 

LD 

BC,#7F10 

3230 

OUT 

(C),C 

3240 

L0 

A ,158 

3250 

OUT 

(C),A 

3260 

INC 

A 

3270 

CUT 

(C),fi 

3230 

LD 

A ,23 

3290 

CALL 

IBBIE 

3300 

JR 

Z,ARRIS 

3310 

LD 

HL,#8686 

3320 

LD 

(HL ,f15 

3330 

INC 

HL 

3340 

X0R 

A 

3350 

LD 

(HL), A 

3360 

INC 

HL 

3370 

LD 

(HL),I 

3380 

INC 

HL 

3290 

LD 

(HL),A 

3400 

INC 

HL 

3410 

LD 

(HL) .A 

3420 

PGP 

BC 

3430 

RET 


3440 

3450 

3460 FIN: 

0EFE 

0,140 

3470 INI: 

DEFB 

0, #40 

3480 CUfi: 

OEFB 

0,0 

3490 EFIN: 

DEFB 

4 

3500 BIN!: 

DEFB 

4 

35 SO 

3520 IMPR: 

DEFB 

#CF,#1E,#88 

3530 esihp: 

DEFB 

#CF,#58,I88 

3540 ACABA: 

DEFS 

S 

3550 CE: 

EQU 

C-ERD-i 
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SAVE“BUFFER”,B,&A000,000,692 


Una vez salvado en disco o cinta, se ejecuta 
escribiendo el siguiente programa cargador del 
binario: 


guardan por si se quiere reanudar nuevamente la 
impresion, mediante el comando lACT. Es util 
para cambiar el papel, detener un listado, etc. 

• I ACT: Se utiliza para reanudar la 
impresion, despues de haber utilizado el comando 
IDES. Si no se ha utilizado anteriormente IDES 

o no hay caracteres en el buffer no produce 
ningun efecto. 

• IRES: Reinicializa completamente el buffer, 
borra todos los caracteres que en el hubiera, 
cancela el envio de datos a la impresora y 
modifica la llamada de la impresora, con lo que 
la salida hacia ella ya no pasa por el buffer. Esta 
orden equivale a trabajar con la impresora, como 
si no se hubiese cargado el programa. 

• IlNB: Sirve para reinicializar el buffer, 
despues de una orden IRES, modifica la llamada 
de impresora para que pase a traves del buffer y 
crea el efecto contrario a IRES. Ademas borra 
todos los caracteres que hubiese en el buffer en 
ese momento. 

Para cargar el programa, hay que copiar el 
cargador Basic y ejecutarlo. Si no aparece ningun 
error se procede a su grabacion en binario de la 
forma siguiente: 


Mundo del 

CPC 


opcion de papel suelto, hay que cambiar la linea 
1410, que dice: 

1410 CLS: PRINT “coloca el papel - despues 
pulsa una tecla”: GOSUB 24700 

por la siguiente: 

141000 PRINT #8,CHR$(&FF)CHR$(&FE); 

de esta forma la impresora se parara, esperando 
la colocacion de nuevo papel para seguir 
imprimiendo. 

La rutina, segun se puede apreciar en el 
listado ensamblador, empieza con la zona de 
relocalizacion hasta la linea 1090. La 
primera parte crea los comandos RSX. Despues 
empieza la rutina encargada de conocer el 
numero de caracteres para el comando IBUFF. 
Ahora nos encontramos con la rutina EMPI, que 
activa la interrupcion para permitir el envio de 
datos a la impresora y reinicializar los parametros 
que necesita el buffer para funcionar. Despues 
tenemos una rutina, llamada RUT, que se 
encarga de leer los datos que se envlan a la 
impresora y guardalos en el segundo banco, 
comprobando que el buffer no este lleno. Por 
ultimo, nos encontramos con la rutina a la que 
saltara el ordenador cuando se produzca la 
interrupcion, comprobando si la impresora esta 
en linea, para enviar un caracter, si no lo esta 
retornara. 


10 H = EIIMEM—692: SYMBOL AFTER 
256:MEMORY H—1 
20 LOAD“BUFFER.BIN”,H:CALL H 


Cuando el programa se haya ejecutado, 
tendremos disponibles los nuevos comandos RSX 
y el buffer listo para ponerse a funcionar. El 
valor de H no puede ser inferior a 32.767. 

Cargue el programa cargador del binario en 
memoria y ejecutelo. Cargue algun otro 
programa en memoria y a continuacion ejecute 
una orden. LIST #8 

Si la impresora esta conectada, se pondra a 
funcionar. Dependiendo de la longitud del listado 
obtendremos el Ready, pero aun as! la impresora 
seguira funcionando hasta completar todo el 
listado. Si desea detener el listado 
momentaneamente, ejecute una orden IDES. 

Para que continue imprimiendo no hay mas que 
ejecutar un lACT. En cualquier momento puede 
conocer el numero de caracteres que contiene el 
buffer con solo teclear: 


r% =0:IBUFF,@%: PRINT (r%—65536*(r% < 0)) 

Si no quiere seguir utilizando el buffer teclee 
IRES y comprobara que vuelve a funcionar de 
manera normal. Es decir, un poco lento. Ahora 
el buffer esta vaclo. 

La rutina es compatible con la mayorla de los 
procesadores de texto como por ejemplo el 
Amsword. Cargue y ejecute primero el cargador 
binario y despues el procesador de textos. En el 
caso del Amsword II, para poder utilizar la 
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Proyectos 
de perifericos para 
Amstrad y MSX 

Este libro. perteneciente a la 
coleccion Micromanuales. es 
eminentemente practico En el 
se dan una serie de 
instrucciones para que 
cualquiera pueda realizar por si' 
mismo Ios perifericos que en el 
se describen de una manera 
muy sencilla y clara. Eso si, 
seria conveniente tener algunos 
conocimientos de programacion 
} circuitos integrados. 

Cada uno de los perifericos 
ocupa un capftulo, aparte de los 
dedicados a temas generales, 
como el de las fuentes de 
alimentacion, en el que, tras 
una introduccion, se explica el 
funcionamiento, la construccion. 
programacion y componentes de 
cada una de ellas, todos con 
cuadros o graficos en los que se 
puede comprender el esquema 
de un simple vistazo. 

Los temas que se tratan son 
tan utiles como un digitalizador 
de dibujos, un teclado reducido 



con el que es mucho mas 
comodo manejar los juegos en 
los que es necesario utilizar el 
teclado. controlador de 
maquetas, pitador, controlador 
de luces intermitentes, 
controlador analogico de 
modelos, actuador magnetico, 
cuentavueltas para una barrera 
luminosa, fotoflash, controlador 
de juegos, detector de lluvia, 
veleta, anemometro, 
termometro, barometro, 
medidor solar y un selector de 
datos. 

En definitiva, un libro 
destinado a todos los «manitas», 
ya que solo necesitan unos 
cuantos transistores o circuitos 
integrados y se pueden 
construir, de una forma sencilla 
y barata, perifericos muy utiles 
que se ban probado ya en un 
Amstrad 464 y son totalmente 
compatibles con el 664 y el 
6128. 
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Modelos de gestion 
con la hoja 
de calculo 
electronica 

Estos modelos de gestion 
pertenecen a la coleccion 
Informatica de Gestion Con 
este libro se pretenden aclarar 
todos los puntos de un 


programa, el VisiCalc, que 
un sistema de gestion de una 
matriz de datos estructurada en 
casillas, con filas y columnas, 
pero con la peculiaridad de que 
cada casilla puede ser, segun las 
necesidades, independiente o 
relacionada con las demas. 

El libro esta dividido en tree 
partes. En la primera se resume 
el modo de utilizar el programa 
el material necesario, los 
comandos, el formato de la 
pantalla, etc. 

En la segunda se dan 12 
aplicaciones que han sido 
probadas realmente en una 
empresa. Y en la tercera, y 
ultima, 22 consejos practicos 
para poder sacar el mayor 
provecho del VisiCalc, todo ello 
con unos graficos que resultan 
de gran utilidad, a pesar de que 
el manejo de este programa es 
sumamente sencillo, y una serie 
de esquemas que pueden aclarar 
sin demasiadas complicaciones 
los puntos oscuros. 

El lenguaje utilizado es claro 
y conciso, de tal manera que no 
son necesarios conocimientos 
tecnicos o espectficos para 
comprender el texto y el manejo 
de las distintas utilidades del 
VisiCalc, un programa de 
VisiCorp. 
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Deseo suscribirme a la revista AMSTRAD SEMANAL por un ano 
(50 numeros). al precio de 7.950 ptas. Esta suscripcion me da dere- 
cho a recibir, totalmente gratis, una Camara con Flash incorporado 
(oferta valida solo para Espana). 

Nombre _ Fecha de Nacimiento 

Apellidos-- 

Domicilio_ 

Localidad _ Provincia_ 

C. Postal _ _Telefono 

(Para agilizar su emits, es importante qua indique -.1 codigo postal! 

Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A. n' 

□ Contra reembolso (supone 125 ptas. mas de gastos de envib y 
es valido solo para Espana). 

□ Tarjeta de credito n? DDDD DDDD DDDD DDDD 
Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta_ 

Nombre del titular (si es distinto) 

(Si pago con la tarjeta de credito, recibire un numero mas de regalo) 

Fecha y firma 

(Si lo desea puede suscribitse por telefono (91) 734 65 00) 

SOLICITE NUMEROS ATRASADOS, CINTAS SERIE 0R0 Y TAPAS 

Deseo recibir en mi domicilio las cintas que a continuacion indico, 
al precio de 756 ptas. cada una, Cada cinta lleva grabados los progra- 
mas publicados por AMSTRAD SEMANAL durante cuatro nume¬ 
ros consecutivos (1 al 4, 5 al 8. 9 al 12, etc.). 

Las cintas que deseo son: 

Numeros al _ Numeros al _ 

Numeros al Numeros al_ 

□ Deseo recibir en mi domicilio los siguientes numeros atrasados de 
AMSTRAD SEMANAL, al precio de 190 ptas. cada uno. 


(Se encuentra agotado el n.° 4) 

□ Deseo recibir en mi domicilio las tapas para conservar AMSTRAD 

SEMANAL, al precio de 850 ptas. (No necesita encuadernacion). 
Nombre_ _ Fecha de Nacimiento 

Apellidos_ 

Domicilio_ 

Localidad_Provincia_ 

C. Postal _ Telefono 

(Para agilizar su envio, es importante que indiqua el codigo postal) 

Fwmas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., ri° 

□ Contra reembolso (supone 125 ptas. mas de gastos de envio y 
es valido solo para Espana) (Excepto cintas.) 

□ Tarjeta de credito n? DDDD DDDD i 
(Solo para pedidos superiores a 1.500 ptas.) 

Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 

Fecha y firma 

No se admiten solicitudes de cintas contra reembolso 
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DIN AM 1C SOFTWARE. Plaza de Espana, IS. 

Torre de Madrid, 29-1. 28008, Madrid. 
Pedidos contra reembolso (de tunes a viernes, 
de 10 a 2 y de 4 a 8 horas): (91) 248 78 87. 
Tiendas y Distribuidores: (91) 314 18 04. 
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